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FOREWORD 

This  work  was  performed  under  US  Army  Natick  Laboratories 
Contract  No.  DAAG17-72-C-0030  during  the  period  15  November  1971 
and  30  June  1973,  The  project  number  was  1F162203AA33  and  the 
task  number  was  04  entitled  ’’Study  of  Dynamic  Stability 
Characteristics  of  Parachute-Load  System”.  Mr.  Edward  J.  Giebutowski 
served  as  Project  Officer. 

The  Objective  of  the  effort  was  to  produce  a  computerized 
trajectory  simulation  which  would  describe  the  motion  of  a 
single  parachute  and  its  cargo  from  the  time  of  release 
from  the  aircraft  to  the  time  of  impact. 

This  report  is  intended  to  serve  as  a  user  manual  for  the 
computer  program  developed  in  Volume  I.  It  includes  flow 
charts  for  the  major  routines,  a  listing  of  computer  mnemonics 
and  a  program  listing#  Sample  output  for  some  trial  cases 
is  also  included. 
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SYMBOLS 

acceleration 

^  ttx 

component  of  the  matrix  A,  i1"  row,  j  column, 

Eqns  (149)  through  (157) r 

inverse  of  effective  spring  constant  of  suspension 
system,  Eqn  (10) 

direction  cosine  matrix 

Eqn  (11) 

effective  porosity 
Eqn  (12) 

drag  coefficient  of  parachute  based  on  nominal  area 

drag  coefficient  of  parachute  based  on  projected 
area 

drag  area 

aerodynamic  normal  force  coefficient  of  parachute 

aerodynamic  moment  coefficient  of  parachute 

aerodynamic  tangent  force  coefficient  of  parachute 

canopy  inlet  diameter 

aerodynamic  drag 

nominal  diameter  of  parachute 

instantaneous  projected  diameter  of  parachute 

projected  diameter  of  fully  inflated  parachute 

Force 

force  due  to  included  and  apparent  mass 
aerodynamic  force  (during  snatch) 
allowable  relative  error  in  integration 

xi 


Fmax  opening  shock 

F^  aerodynamic  normal  force 

instantaneous  opening  force 

g  gravitational  acceleration 

h  altitude;  D  /D 

P  o 

I  inertia  tensor  of  parachute- load  system  about 

its  mass  center 


k  spring  constant  of  suspension  system 

j(.  distance  between  load  and  secondary  body  or  load 

and  aircraft  during  deployment 

^2.  distance  from  parachute- load  system  center  of 

mass  to  load 


distance  from  parachute- load  system  center  of  mass 
to  parachute  center  of  volume 


*■3  distance  from  parachute- load  system  center  of  mass 

to  parachute  moment  center 

L  R  reefing  line  length 

L  distance  load  travels  in  aircraft;  X-component  of 

body  fixed 

Lgr  length  of  load  bridle  in  Z-direction 

Lg  length  of  riser  extension 

LR  length  of  suspension  lines 

Lg  length  of  suspension  lines 

^static  of  static  line 

m  mass 


ma  apparent  mass  of  parachute 

mgr  mass  of  load  bridle 


m^,  mass  of  riser  extensions 


Si 


mass  of  included  air  in  parachute  canopy 
mass  of  suspension  lines 

mass  of  pilot  or  extraction  parachute  and  main 
parachute  deployment  bag 

total  mass  of  load  and  packed  recovery  system 
mass  of  risers 

mass  of  suspension  lines,  risers,  extensions, 
bridle  and  links 

total  mass  =  m^  +  mgg  +m  +  nu .+  ma 

mass  of  primary  body  during  deployment  of  the 
suspension  system  =  m^  +  %  mgg 

moment  acting  on  parachute-load  system 

Y- component  of  M,  body  fixed 

aerodynamic  moment  due  to  parachute 

mass  of  primary  body  at  snatch  =*  m^  +  mgg 

mass  of  secondary  body  during  deployment  of  the 
suspension  system  =  mp  +  h  mss  +  mpb 

Z- component  of  M,  body  fixed  ^ 

X- component  of  3  body  fixed 

maximum  snatch  force 

Y-component  of  £,  body  fixed;  mass  ratio,  Eqn  (15) 
position  vector 

reefing  ratio;  Z-component  of  u),  body  fixed 

rbffefbticd  distance  from  canopy  skirt  to  parachute¬ 
load  system  center  of  mass  in  fully  inflated 
configuration 

reference  distance  from  canopy  skirt  to  suspension 
line  center  of  mass  in  fully  inflated  configuration 


reference  distance  from  canopy  skirt  to  riser  center 
of  mass  in  fully  inflated  configuration 

reference  distance  from  canopy  skirt  to  riser  exten¬ 
sion  center  of  mass  in  fully  inflated  configuration 

reference  distance  from  canopy  skirt  to  load  bridle 
center  of  mass  in  fully  inflated  configuration 

reference  distance  from  canopy  skirt  to  load  center 
of  mass  in  fully  inflated  configuration 

reference  distance  from  canopy  skirt  to  parachute 
center  of  volume  in  fully  inflated  configuration 

nominal  area 

time 

reefing  cutter  delay  time 

time  at  which  extraction  or  pilot  parachute  is 
released  or  main  parachute  is  disreefed  to  initiate 
inflation 

final  filling  time;  measured  from  end  of  bag  strip 
to  first  attainment  of  hemispherical  canopy  volume 

filling  time  for  reefed  inflation  period 

dimensionless  time  scale;  aerodynamic  tangent 
force  of  parachute 

time  at  which  reefing  cutters  are  armed 
dimensionless  time  scale  for  reefed  inflation  periods 
X- component  of  v,  body  fixed 

general  velocity;  velocity  of  parachute- load  system 
mass  center 

general  velocity;  magnitude  of  velocity  of  parachute- 
load  system  center  of  mass 

snatch  velocity,  Eqn  (16) 

volume;  Y-component  of  v,  body  fixed 

Z-component  of  v,  body  fixed;  weight 
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space-fixed  coordinate  direction;  position  of 
parachute- load  system  center  of  mass 

body-fixed  coordinate 

space-fixed  coordinate  direction;  position  of 
parachute- load  system  center  of  mass 

body-fixed  coordinate 

Space-fixed  coordinate  direction;  position  of 
parachute-load  system  center  of  mass 

body-fixed  coordinate 

angle  of  attack  in  XZ- plane 

trajectory  angle 

angle  of  attack  in  YZ-plane 

angle  between  velocity  and  XZ- plane 

angle  between  velocity  and  YZ-plane 

allowable  absolute  error  in  integration 

Euler  angle,  system  angle  for  problems  constrained 
to  three  degrees  of  freedom 

angle  between  parachute  velocity  and  systems  axis 

integrand  in  Eqn  (30) 

air  density 

sea  level  air  density 

air  density  ratio  =  p/ pQ 

angular  velocity  of  parachute- load  system 

Euler  angle 

Euler  angle 


Subscripts 

apparent 

main  parachute  deployment  bag 
extraction  parachute (s) 
included 
load 

nominal,  initial 
parachute 

referring  to  inflation  of  the  main  parachute  with 
reefing 

value  required  for  instantaneous  trajectory 
calculation 

component  in  space- fixed  x  coordinate  direction 
component  in  body-fixed  X  coordinate  direction 
component  in  space-fixed  y  coordinate  direction 
component  in  body-fixed  Y  coordinate  direction 
component  in  space-fixed  z  coordinate  direction 
component  in  body-fixed  2  coordinate  direction 
referring  to  end  of  reefed  inflation  stage 
primary  body 
secondary  body 

indicates  vector  quantity 
indicates  matrix  or  tensor  quantity 


ABSTRACT 

A  method  of  total  trajectory  simulation  was  established 
which  is  based  on  the  governing  equations  of  the  various 
phases  of  an  airdrop  or  recovery  system.  In  view  of  these 
equations,  a  computer  program  capable  of  predicting  the 
performance  characteristics  of  a  parachute-load  system  from 
the  instant  of  initiation  to  the  moment  of  landing  was 
established.  Calculations  were  performed  for  a  number  of 
different  aerial  delivery  systems.  The  calculated  results 
fall  well  within  the  broad  ranges  of  expected  performance, 
based  upon  a  familiarity  with  field  test  results. 

In  Volume  I  simulation  methods  and  numerical  calcula¬ 
tion  results  are  presented;  in  Volume  II  details  of  the 
calculation  procedures  and  computer  program  are  presented. 
The  system  is  ready  to  be  used  for  overall  prediction  of 
parachute  performance  characteristics  and  an  intensive  com¬ 
parison  of  calculated  and  recorded  field  test  results  is 
highly  desirable  for  validation  and  improvement  of  the 
technique  of  total  trajectory  simulation. 
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I.  INTRODUCTION 

In  this  study  mechanical  and  mathematical  models  have 
been  selected  to  provide  a  total  trajectory  simulation  for 
four  parachute  separation-deployment  systems.  In  Volume  I 
of  this  report  these  simulation  methods  are  presented*  and 
in  this  volume,  Volume  II,  the  calculation  procedures  for 
obtaining  numerical  results  are  shown. 

The  calculations  were  made  using  a  Fortran  IV  computer 
program  and  a  Control  Data  Corporation  6600  computer.  Thus 
this  volume  presents  the  software  documentation  required  for 
duplication  and  use  of  the  computer  program,  beginning  with 
a  general  description  of  the  program  and  progressing  to  more 
detailed  information.  However,  the  various  Sections  cannot 
be  considered  independent;  referring  to  later  sections  of 
the  report  may  add  to  the  understanding  of  the  early  sections. 

The  compile  time  with  the  standard  Fortran  compiler  is 
approximately  5.6  seconds  for  the  three  degree  of  freedom 
solution  and  7.1  seconds  for  the  solution  allowing  six 
degrees  of  freedom  for  the  free  descent  phase.  The  running 
time  for  the  various  trajectory  calculations  averaged  about 
7  to  8  seconds,  ranging  from  3  to  4  seconds  for  low  altitude 
simulations  to  about  13  seconds  for  high  altitude  simulations. 
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II.  GENERAL  DESCRIPTION 

The  computer  program  for  the  total  trajectory  simulation 
can  be  considered  to  consist  of  three  calculation  phases 
organized  to  model  four  parachute  separation- deployment 
systems.  The  three  calculation  phases  correspond  to  the 
physical  processes  of  an  airdrop*  and  are:  1)  separation  and 
deployment,  2)  inflation  of  the  main  parachute,  and  3)  free 
descent  with  consideration  of  dynamic  characteristics.  The 
first  two  phases  have  been  limited  to  two  dimensions;  for 
free  descent,  the  user  can  select  two  or  three  dimensional 
calculations.  The  program  was  organized  with  major  subroutines 
directly  related  to  physical  processes  so  that  calculation 
methods  could  be  easily  changed  or  improved  by  merely  replac¬ 
ing  a  subroutine. 

The  user  must  select  inputs  that  specify  the  physical 
characteristics  of  his  parachute-load  system  and  which  of  the 
four  separation- deployment  systems  he  is  modeling.  The 
separation-deployment  systems  are  1)  static  line,  2)  static 
line  deployed  pilot  chute,  3)  extraction  parachute,  and 
4)  reefed  main  parachute  extraction.  The  user  also  can  have 
a  range  of  outputs,  from  a  nearly  continuous  print  of  tra¬ 
jectory  data  to  only  a  few  results  at  significant  occurrences 
during  the  simulation. 


A.  Basic  Program  Organization 

MAIN  PROGRAM  is  the  first  entry  to  the  program;  its 
basic  functions  are  to  read  most  of  the  input  data,  print 
some  parameters  of  interest,  sequence  the  calls  to  the  major 
subroutines,  and  then  either  start  the  next  simulation  or 
terminate  the  run.  Very  few  calculations  are  done  in  MAIN 
PROGRAM  itself,  its  major  purposes  are  organization  and 
sequencing. 
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The  first  functional  call  by  MAIN  PR0GRAM  is  to  Subrou¬ 
tine  EXTRACT,  which  is  the  first  major  subroutine  that  directs 
calculations  for  the  separation- deployment  process*  EXTRACT 
calculates  the  process  of  separation  from  the  aircraft  for  all 
systems  and  informs  MAIN  PR0GRAM  whether  or  not  a  call  to  sub¬ 
routine  SNATCH  is  required,  SNATCH  is  the  second  major  sub¬ 
routine  of  the  separation- deployment  phase,  and  calls  subrou¬ 
tine  B0DIES  for  calculating  the  separation  between  primary 
and  secondary  bodies  of  the  parachute-load  system. 

After  separation- deployment,  MAIN  PR0GRAM  directs  the 
simulation  to  the  inflation  of  the  main  parachute,  subroutine 
0PENING,  0PENING  is  primarily  an  organizational  subroutine 
and  calls  FILLTIM  for  a  calculation  of  filling  time  and  CALC 
for  trajectory  calculations  during  inflation. 

The  last  phase  is  free  descent,  and  since  this  can  be 
two-  or  three-dimensional,  the  appropriate  integer  inputs  as 
well  as  the  desired  subroutine  decks  must  be  selected  by  the 
user.  Since  the  required  aerodynamic  force  coefficients  for 
three-dimensional  calculations  have  not  yet  been  measured, 
the  majority  of  calculations  will  probably  be  two-dimensional, 
and  thus  there  is  no  need  to  compile  the  three-dimensional 
subroutines  for  every  calculation.  In  both  cases  subroutine 
M0TI0N  is  the  major  subroutine,  and  is  basically  organiza¬ 
tional,  M0TI0N  calls  subroutine  INTGRAT  for  integration  of 
the  equations  of  motion,  INTGRAT  requires  subroutine  F0RMULA 
for  the  integration  and  subroutine  EM0TI0N  for  numerical 
evaluation  of  the  equations  of  motion,  EM0TI0N  calls  subrou¬ 
tine  DYNAMIC  to  evaluate  terms -in  the  equations  of  motion, 
and  subroutine  C0EFFTS  supplies  values  of  the  aerodynamic 
coefficients  to  EM0TI0N.  Subroutines  INTGRAT,  F0RMULA,  and 
DYNAMIC  are  identical  for  two  or  three  dimensional  calcula¬ 
tions  ;  the  others  have  the  same  names  in  both  cases  but  are 
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different.  Subroutine  COSINES  is  added  to  evaluate  the  terms 
of  the  direction  cosine  matrix  in  three-dimensional 
calculations. 

The  subroutines  DENSITY  And  TRAJEQN  are  called  by  many 
of  the  other  subroutines.  DENSITY  calculates  atmospheric 
density  as  a  function  of  altitude  and  TRAJEQN  evaluates  the 
two- dimensional ,  point  mass  trajectory  equations  for  use 
until  the  parachute  is  fully  inflated. 


B.  Computer  Program  Outputs 

The  output  from  the  computer  program  in  all  subroutines 
which  include  output  statements  can  be  divided  into  three 
categories;  (1)  all  input  data,  (2)  trajectory  variables 
and  other  calculated  information  at  points  of  interest 
throughout  the  program,  and  (3)  continuous  output  of  variables 
describing  the  calculated  trajectory. 

The  first  and  second  of  these  groups  are  always  printed. 
All  inputs  are  immediately  printed  in  the  main  program  or  in 
the  particular  subroutine  in  which  they  are  read.  The  tra¬ 
jectory  variables  at  the  following  points  during  the  trajec¬ 
tory  simulation  are  printed  immediately  before  exit  from  the 
following  subroutines; 

Subroutine  EXTRACT — -static  line  stretch  and  main  parachute 
canopy  unfolded  or  initiation  of  main  parachute  deployment; 
or  load  leaves  aircraft  and  initiation  of  main  parachute 
deployment  or  inflation, 

Subroutine  SNATCH-- snatch  force  occurrence. 

Subroutine  0PENING-- inflation  of  the  main  parachute  to 
any  reefed  stage  or  to  full  inflation. 

Subroutine  M0TI0N--the  first  three  instances  when  the 
parachute- load  system  is  vertical  or  near  vertical. 
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In  addition,  snatch  force,  snatch  velocity,  and  primary  and 
secondary  body  velocities  at  snatch  are  printed  before  exit 
from  SNATCH o  The  projected  diameter  corresponding  to  the 
prescribed  final  reefing  ratio,  time  of  disreef  (if  applicable) 
filling  time,  and  opening  shock  for  each  inflation  are  printed 
before  exit  from  0PENING. 

The  continuous  output  can  be  controlled  by  the  program 
user.  The  variable  NINT  may  be  read  into  the  program  as  a 
negative  number,  which  then  eliminates  all  continuous  output. 

If  NINT  is  positive,  it  represents  the  number  of  calculations 
which  are  to  be  made  between  successive  printings  of  the  tra¬ 
jectory  variables  in  subroutines  EXTRACT  and  SNATCH,  and  to 
some  degree  in  0PENING  and  M0TI0N.  During  the  inflation 
periods  in  0PENING,  and  if  the  automatically  selected  time 
increment  in  M0TI0N  becomes  too  large,  NINT  does  not  affect 
the  output  of  trajectory  variables  if  it  is  greater  than 
zero.  The  trajectory  variables  are  time,  altitude,  system 
angle,  position  components,  total  velocity  and  velocity  com¬ 
ponents,  and  total  acceleration.  These  variables  refer  to 
the  mass  center  of  the  parachute- load  system  until  the  main 
parachute  is  fully  inflated,  and  to  the  load  during  the  free 
descent  phase  in  M0TI0N. 


C.  Separation-Deployment  Systems 

The  values  of  the  integer  variables  I STATIC  and  IEXTRAC, 
and  the  variable  Dop-Qot  control  the  selection  of  one  of  the 
four  separation-deployment  systems  as  shown  in  Fig  1.  These 
variables  are  examined  upon  entry  to  EXTRACT,  which  then 
directs  the  simulation  to  the  appropriate  calculations.  For 
the  static  line  deployed  pilot  chute  or  extraction  parachute 
systems  a  snatch  force  calculation  is  required  and  EXTRACT 
sets  ISNATCH  to  -1  which  then  directs  the  MAIN  PR0GRAM 
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FIG  1  Determination  of  the  Separation- 
Deployment  System  in  Subroutine 
EXTRACT 
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sequence  to  SNATCH,  For  the  static  line  and  reefed  main 
parachute  extraction  systems  no  snatch  force  calculation  is 
required  and  EXTRACT  sets  ISNATCH  to  +1  which  directs  the 
MAIN  PROGRAM  sequence  directly  to  0PENING. 

The  following  Items  include  figures  which  show  the 
separation-deployment  process  and  the  sequencing  of  the 
simulation  through  MAIN  PR0GRAM,  the  values  of  the  pertinent 
variables  for  selecting  the  separation-deployment  system,  and 
a  list  of  the  physical  processes  involved  in  separation  and 
deployment  with  the  name  of  the  subroutine  that  models  the 
process. 

1.  Static  Line  System 

Figures  2  and  3 
ISTATIC  -■  -1 
DPIL0T  **  0 

ISNATCH.-  +1 

Separation  from  aircraft  EXTRACT 

Main  Canopy  Unfolding  EXTRACT 

2.  Static  Line  Deployed  Pilot  Chute  System 

Figures  4  and  5 
ISTATIC  =  -1 
DPIL0T  =  D0pilot 
ISNATCH  =  -1 

Separation  from  aircraft  EXTRACT 

Suspension  system  deployment  B0DIES 
Snatch  force  SNATCH 

Main  parachute  unfolding  B0DIES 
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Fig  2  Static  Line  System 
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2S 


Pilot  Chute  System 


FIG  5  Sequence  of  Computer  Solution 
for  Static  Line  Deployed  Pilot 
Chute  System 
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3.  Extraction  Parachute  System 

Figures  6  and  7 
ISTATIC  =  +1 
IEXTRAC  =  0 

I SNATCH  >  ~1 

Separation  from  aircraft  EXTRACT 

Suspension  system  deployment  B0DIES 
Snatch  force  SNATCH 

Main  parachute  unfolding  B0DIES 

4.  Reefed  Main  Parachute  Extraction  System 

Figures  8  and  9 
ISTATIC  -  +1 
IEXTRAC  =  +1 
I SNATCH  -  +1 

Separation  from  aircraft  EXTRACT 
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MAIN  PR0GRAM 

- ►— 

MAIN  PROGRAM 

- _L__Z 

■  ■ 

■ 

EXTRACT  { 

0PENING 

■ 

mm 

■ 

j  MAIN  PROGRAM 

MAIN  PR0GRAM 

j — 

SNATCH  1 - 

— i 

' 

M0TI0N 

FIG  7  Sequence  of  Computer  Solution 
for  Extraction  Parachute  System 
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Fig  8  Reefed  Main  Parachute  Extraction  System 


FIG  9  Sequence  of  Computer  Solution 

for  Reefed  Main  Parachute 
Extraction  System 
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III.  DESCRIPTION  OF  COMPUTER  PROGRAM 

This  section  describes  the  computer  program  used  for  the 
total  trajectory  simulations.  The  format  used  in  the  follow¬ 
ing  is  to  include,  for  each  program  or  subprogram^  the 
following  information:  1)  list  of  inputs,  2)  list  of  outputs, 
3)  list  of  formal  parameters,  4)  list  of  common  blocks,  and 
5)  an  explanation  of  the  calculation  methods.  Computer 
mnemonics  are  used  in  the  lists  of  inputs,  outputs,  parameters, 
and  common  blocks  to  aid  later  cross  references  with  the 
program  listing.  Section  VII.  These  and  all  other  non¬ 
standard  mnemonics  are  defined  in  Section  VI.  The  formal 
parameters  and  common  blocks  appear  as  they  are  shown  in  the 
listing  of  the  particular  subroutine.  For  assistance  in 
following  the  calculation  methods,  the  calling  parameters  of 
all  calls  to  each  subroutine  are  shown  in  Section  IV. e 


A.  MAIN  PROGRAM 

v  The  mnemonic  symbol  MAIN  PROGRAM  is  Used  in  the  text  to 
describe  PR0GRAM  TRAJSIM,  the  name  given  by  the  authors  to 
the  main  program  for  the  total  trajectory  simulation.  The 
name  of  the  main  program  can  be  changed  to  any  suitable  form 
by  the  program  user  without  affecting  the  functioning  of  the 
computer  program.  The  standard  files  INPUT  and  0UTPUT  are 
required  for  the  MAIN  PR0GRAM. 

1.  Input 

NSIM,  Cl,  C2,  CVC4,  05,  ALT,  VO,  MST,  MP,  MLS,  MR,  MRX, 
MBR,  ML,  XI,  X2,  X3,  X4,  X5,  IZ,  IAZO,  DN0T,  LSS,  CDP,  CDSL, 
Ql,  Q2,  V0LUME ,  N,  NNN,  DTI,  DT2,  DT3,  NINT,  ETA,  PCTERR 
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2.  Output 


Cl, 

C2, 

C3, 

C4,  C5,  ALT, 

VO,  MST, 

ML, 

MP,  MLS,  MR, 

MRX, 

MBR, 

A8, 

B8, 

ALT,  A9, 

B9, 

ALT, 

XI, 

X2, 

X3, 

X4,  X5, 

A4, 

B4, 

ALT, 

A5, 

B5, 

ALT,  A6, 

B6, 

ALT, 

A7, 

B7, 

ALT 

,  DN0T, 

LSS, 

Al, 

Bl, 

ALT, 

A2, 

12,  ALT, 

A3, 

B3, 

ALT, 

Ql, 

Q2, 

VOLUME, 

cdp3 

) 

CDSL 

N 

3.  Common  Blocks 

/ C0NST/ ’  ALT j,  PI,  G,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST,  NINT 
/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  ALPHAL,  ALPHAP,  LI 
/ D  YNAM/ i  DYDN0T ,  XI,  X2,  X3,  X4,  X5,  MBR,  DYML,  MLS,  DYMP, 

MR,  MRX,  IAZO,  IZ,  Ql,  Q2,  -XDEN0M 

4.  Methods 

MAIN  PR0GRAM  oversees  the  operation  of  the  total  tra¬ 
jectory  simulation,  providing  for  a  specified  number,  NSIM, 
of  trajectory  simulations  to  be  accomplished  in  one  run  of 
the  computer  program.  For  each  total  trajectory  simulation, 
the  operation  of  MAIN  PR0GRAM  is  as  follows.  The  title  and 
most  parachute- load  system  data  are  read  and  printed.  The 
parameters 

XfSfUM  =  m^  s]_  +  m^S2  +  m^s^  +  mBrs4  +  mJt  s5  ~  m  sc 
s 

XDEN0M  =  +  iUr  +  m^  4 •  mgr  +  m^  +  m 

s  .  ^ 

are  established  for  use  in  subroutine  DYNAMIC.  Note  that 
common  block  DYNAM  must  have  different  names  for  its 
variables,  even  though  some  represent  the  same  variables  as 
are  in  G0NST«  To  bracket  the  variable  parachute- load  system 
dynamic  characteristics  to  be  encountered,  subroutine 
DYNAMIC  is  called  for  mean  sea  level  density  and  for  release 
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altitude  density  and  the  results  of  these  two  calls  are  printed. 
The  necessary  information  for  calculation  is  transmitted  via  the 
calling  parameter  list  and  the  common  block  DYNAM. 

The  first  call  of  the  actual  trajectory  simulation  is  to 
EXTRACT 3  following  which  MAIN  PR0GRAM  directs  the  calculations 
by  calling  SNATCH,  OPENING,  and  M0TI0N  as  detailed  in  Subsections 
II A  and  IIC  for  the  particular  separation- deployment  system. 

When  control  is  returned  to  MAIN  PROGRAM  after  the  call  to  M0TI0N, 
the  next  trajectory  simulation  begins  or  the  program  is  terminated 
if  the  run  is  complete. 


B.  Separation-Deployment  Phase 

Three  subroutines  perform  the  calculations  for  the  physical 
processes  in  the  separation- deployment  phase.  The  major  sub¬ 
routine  is  EXTRACT,  which  calculates  the  separation  from  the 
aircraft  for  all  systems  and  contains  all  of  the  remaining 
deployment  calculations  for  systems  that  do  not  have  a  snatch 
force.  If  a  snatch  force  is  required,  EXTRACT  directs  MAIN 
PROGRAM  to  subroutines  SNATCH  and  BODIES,  the  other  two  subrou¬ 
tines  for  this  phase,  SNATCH  calculates  maximum  snatch  force 
and  calls  BODIES  for  calculating  the  separation  between  the 
primary  and  secondary  bodies  of  the  parachute  load  system. 

1,  Subroutine  EXTRACT 

a .  Input 

All  Systems: 

I STATIC,  IEXTRAC 

Static  Line  System: 

L STATIC,  CDSBAG,  CDSP,  DPIL0T,  LSPIL0T,  TD,  LRXBR  (CDSP  =  0, 
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DPIL0T  =  02  LSPIL0T  -  0,  TD  =  0) 

Static  Line  Deployed  Pilot  Chute  System: 

LSTATIC,  CDSBAG,  CDSP,  DPIL0T,  LSPIL0T,  TD,  LRXBR. 

Extraction  Parachute  System: 

LENGTH,  CDSB AG,  CDSEX,  TD* 

Reefed  Main  Parachute  Extraction  System: 

R,  LENGTH,  TD 

b.  Output 

Static  Line  System: 

ALL  NINT:  LSTATIC,  CDSBAG,  Tl,  TRAJl,  XI,  Zl,  VI,  T,  TRAJANG, 

X,  Z,  Vo 

NINT  >  0:  T,  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  VX,  VZ. 

Static  Line  Deployed  Pilot  Chute  System: 

ALL  NINT:  LSTATIC,  CDSBAG,  CDSP,  DPIL0T,  LSPIL0T,  TD,  Tl, 

TRAJl,  XI,  Zl,  VI,  T,  TRAJANG,  X,  Z,  V. 

NINT  >  0:  T,  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  VX,  VZ. 
Extraction  Parachute  System: 

ALL  NINT:  LENGTH,  CDSBAG,  CDSEX,  TD,  Tl,  XI,  VI,  T,  TRAJANG, 

X,  Z,  V. 

NINT  >  0:  T,  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  V. 

Reefed  Main  Parachute  Extraction  System: 

ALL  NINT:  LENGTH,  R,  H*DN0T,  TD,  Tl,  XI,  VI,  T,  TRAJANG,  X, 

Z,  V. 

NINT  >0:  T,  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  V. 

e„  Formal  Parameters 
ISNATCH,  IEXTRAC,  VO,  DT,  TRCA 

d.  Common  Blocks 

/C0NST/:  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST, 

NINT. 
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/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  UNUSED,  UNUSED2,  UNUSED3. 

e.  Methods 

i)  Static  Line  System 

The  governing  equations  for  the  parachute- load  system 
during  the  periods  of  separation  and  deployment  of  the  main 
parachute  by  static  line  are  the  two-dimensional,  point  mass, 
trajectory  equations,  incorporated  in  subroutine  TRAJEQN. 

Thus  the  procedure  in  subroutine  EXTRACT  is  to  call  subrou¬ 
tine  TRAJEQN  with  calling  parameters  representing  the  appro¬ 
priate  mass  and  drag  area  with  time  increments  At  between 
successive  calls.  The  duration  of  the  first  calculation 
phase  is  determined  by  the  distance  between  the  release  point 
in  the  aircraft  and  the  recovery  system  mass  center*  given  by 

VW*  -*)Z+  (!) 

The  main  parachute  is  deployed,  and  control  is  returned  to 
the  main  program,  when 

i  >- +J-S+  Lr  +  0o/2  +  Le  4-L  6r  (2) 

The  parameter  I SNATCH  is  assigned  the  value  +1  before  control 
is  returned  to  the  main  program.  The  value  of  the  time  at 
this  point  is  the  value  given  to  the  return  parameter  tRCA, 
which  is  required  if  reefing  will  be  required  in  the 
inflation  phase. 

ii)  Static  Line  Deployed  Pilot  Chute  System 

The  procedure  for  this  case  is  the  same  as  for  static 
line  deployment,  except  that  the  pilot  parachute  is  being 
deployed  rather  than  the  main  parachute.  The  pilot  parachute 
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i s  deployed  when 


U  pilot  +  i  OopUot  (3) 

At  this  point,  the  calling  parameter  for  subroutine  TRAJEQN 
representing  the  drag  area  must  be  increased  by  the  drag  area 
of  the  pilot  parachute.  The  parameter  I SNATCH  is  assigned 
the  value  -1.  Successive  calls  to  subroutine  TRAJEQN  are 
made  until  the  time  exceeds  the  value  t^. 

iii)  Extraction  Parachute  System 

I SNATCH  is  set  equal  to  -1.  The  governing  equation  while 
the  load  is  in  the  aircraft  is 

-pvz  CD  St 

4v=  r  w 

where  C^S^  is  the  drag  area  of  the  extraction  parachute(s) . 

The  condition  which  indicates  that  the  load  has  left  the  air¬ 
craft  is 

v4t-x  i  L  (5) 

At  this  point 5  the  value  of  C^S^  is  increased  by  the  drag  area 
of  the  load  and  the  packed  main  parachute,  C^S^  +  C^S^,  and 
the  trajectory  is  simulated  by  successive  calls  to  subroutine 
TRAJEQN  with  time  increment  At.  Control  is  returned  to  the 
main  program  when  the  time  exceeds  t^. 

iv)  Reefed  Main  Parachute  Extraction  System 

I SNATCH  is  set  to. +1.  The  drag  area  of  the  reefed  main 
parachute  is  given  by 


where 


Vi  = 


4CLj4LrVR>  ZRVo 

4(,LS+  +  TCR  Do 


(7) 


The  calculation  procedure  is  the  same  as  for  standard  extrac¬ 
tion  parachutes,  with  the  value  of  C^S^  from  Eqn  (6)  used  in 
Eqn  (4).  After  the  criterion  (5)  is  satisfied,  the  value  of 
is  increased  by  the  drag  area  of  the  load,  ,  and 

successive  calls  are  made  until  t  exceeds  t^.  The  value  of 
tRCA  is  set  to  zer°B 


2 .  Subroutine  SNATCH 
a.  Input 

MfBAG,  CDS2  ,  K,  LRXBR 
b«  Output 

ALL  NINT:  MPBAG,  CDS2,  K,  LRXBR,  TL,  TRAJL,  XL,  ZL,  V1L,  V2L, 
FMAX,  VF 

NINT  >0:  T,  ALT- Z,  TRA JANG,  TRAJANG,  X,  Z,  VI,  VlX,  VIZ 

c.  Formal  Parameters 
TRCA,  DT 


d.  Common  Blocks 

/C0NST/:  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS, 

MST,  NINT 

/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  UNUSED1,  UNUSED2,  UNUSED3 

e.  Methods 

The  trajectories  of  the  primary  and  secondary  bodies  and 


the  separation  £  are  calculated  by  calls  to  subroutine 
B0DIES  for  the  periods  before  and  after  snatch.  Subroutine 
B0DXES  is  called  successively  until 

!=  Ls  +  Lr  +  Le  +  LSy. 


when  snatch  occurs.  The  snatch  force  equations  are 

P™*8*  -g+Vs2-c/a 


(8) 


(9) 


A-  /k 


(10) 


6=  F, 


AX 


I+Q  + 


+  F, 


AH 


<3  + 


2vbQ 

v*-% 


(ii) 


C  -  M- 


Q-l 

0. 


GH 


q  +  evB  Ivs-vu)j 

v^pjivj-YaVS  2va 


(12) 


(13) 


^  W-v.') 


(14) 
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(15) 


Mx 


Ms  Vx  +  N'Ap 

a  .  . .  ,  ,  .  I _ 

hx  +  vv>f 


The  time  tRGA  is  set  to  the  time  value  at  snatch.  Subroutine 
BODIES  is  then  again  called  successively,  after  adjusting 
primary  and  secondary  velocities  to  the  value  v  ,  and  chang¬ 
ing  the  masses  to  (m-  +  m  +  m  )  for  the  primary  body,  and 


mD  for  the  secondary  body.  This  continues  until 
Pb 


Ls  +  Lr  +  +  OoA 


(17) 


at  which  time  control  is  returned  to  MAIN  PROGRAM. 


3.  Subroutine  B0DIES 

a.  Input 
None 

b.  Output 
None 

c.  Formal  Parameters 

Ml,  GDSl ,  M2, CDS2,  VI,  V2,  L,  DT 
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d .  Common  Blocks 


/C0NST/:  ALT, 

PI,  G,  GDP, 

Bta0T,  CDSL,  LSS,  ML,  MP, 

MSS, 

MST, 

N0USE. 

/VARIABL/ :  RH0, 

T,  V,  THETA, 

X,  Z,  UNUSED,  UNUSED2 , 

UNUSED  3 

e.  Methods 

This  subroutine  merely  evaluates  the  equations 

A  0  =  - 

vr  « 

(18) 

K  ^  3  C06  ©  - 

p  CD$x  v/  \ 

r  tw,r  W 

■  a  ■  * 

(19) 

>  (3  ces  e 

P  Co  Sn  vj'  ^ 

(20) 

Axis  V3  S'Vk© 

(21) 

42  = 

Vx  Co*  0 

(22) 

A  X  = 

V3  At  -  At 

(23) 

Co  Inflation  of  the  Main  Parachute 

The  second  calculation  phase  is  represented  by  subrou¬ 
tines  0PENXNGJ,  FXLLTXMj,  and  CALC*  This  calculation  phase  is 
required  for  all  of  the  separation- deployment  systems $  and  is 
initiated  by  a  call  from  MAIN  PR0GRAM  to  0PENINGs  which  then 
calls  FXLLTXM  and  CALC  *  This  phase  represents  inflation  of 
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the  main  parachute  with  provision  for  any  number  of  reefed 
stages.  The  extent  of  the  calculation  phase  is  from  the  point 
when  the  main  parachute  is  deployed  in  a  stretched-out  manner, 
or  at  the  time  t  =  tD  for  extraction  by  the  reefed  main  para¬ 
chute,  until  the  main  parachute  is  fully  inflated. 

1.  Subroutine  OPENING 

a.  Input 

No  Reefing:  NREEF 

Reefing:  NREEF,  RO,  Rl,  TCD 

b.  Ouput 
No  Reefing: 

ALL  NINT:  T,  TRAJANG,  X,  Z,  V,  FO,  TF 

NINT  >  0:  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  VX,  VZ,  -FRCE/ML 
Reefing: 

ALL  NINT:  Rl,  Hl*DN0T,  TCD,  TDR;  T,  TRAJANG,  X,  Z,  V,  FO,  TF, 
at  end  of  each  reefing  stage. 

NINT  >0:  T,  ALT-Z,  TRAJANG,  TRAJANG,  X,  Z,  V,  VX,  VZ, 
-FRCE/ML 

c.  Formal  Parameters 

DQ,  TRCA,  N,  F,  VOLUMG,  IEXTRAC ,  DTT 

d.  Common  Blocks 

/C0NST/:  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS, 

MST,  NINT 

/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  UNUSED,  UNUSED2,  UNUSED3 
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e.  Methods 

The  first  input  to  subroutine  0PENING  is  the  value  NREEF* 
representing  the  number  of  reefing  lines  employed  during  the 
inflation.  If  the  value  of  NREEF  is  zero*  i.e.  if  the  infla¬ 
tion  is  without  reefing*  no  further  inputs  are  made.  If 
reefing  is  employed*  the  reefing  ratios  at  the  beginning  and 
end  of  each  reefed  inflation  and  the  reefing  cutter  delays 
must  be  read.  Thus  for  the  first  reefed  inflation  stage*  the 
initial  value  of  the  reefing  ratio  is  zero  and  the  final  value 
is  the  reefing  ratio  corresponding  to  the  first  reefing  line. 
For  the  last  reefed  inflation  stage*  the  initial  reefing  ratio 
value  corresponds  to  the  final  reefing  line*  and  the  final 
value  is  equal  to  the  assumed  projected  diameter  ratio  for 
the  fully  inflated  parachute*  2/rr. 

The  procedure  for  calculation  of  the  simulated  trajectory 
by  subroutine  OPENING  is  as  follows.  For  inflation  of  the 
main  parachute  without  reefing*  the  volume  increase  of  the 
parachute  during  inflation  is  given  by  the  fully  inflated 
volume  V.  The  values  for  the  initial  and  final  projected 
diameter  ratios  are  set  by  0PENING  to 

-  (pp'/Oo^TsO  ~  ®  (24) 


Wi=lDp/  0o')Ta)  =■ 


(25) 


The  values  of  V*  hQ*  and  h^  are  used  for  determination  of  the 
final  filling  time  t ^  by  calling  subroutine  FILLTIM.  The 
trajectory  is  then  calculated  by  successive  calls  to  sub¬ 
routine  CALC*  and  control  is  returned  to  the  main  program 
when  T  =  1.  The  opening  force  during  the  inflation  is  found 
from 
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(26)  , 


Av 

+«  AT 


) 


the  opening  shock  being  the  largest  value  of  Fq. 

For  inflation  from  one  reefed  stage  to  another,  the 
increase  in  volume  is  given  by  r 


vR  = 


1 

\z 


\  o Dc 


v>,y (ls+  l*  + 


The  values  of  the  projected  diameter  ratios  are  found  from 
the  reefing  ratios  RQ  and  R^  by 


4  (Ls+LgQ  Ro  +  Oq 
4(Ls+Lr')  +  %  Rs  Do 


(28) 


4  (L3*Lr")  R,  t  2I?|  0a 
4  (Ls+Lr-)  *  T\  R,06 


(29) 


The  filling  time  tfR  is  then  calculated  by  calling  FILLTIM 
with  the  values  of  VRS  hoS  and  h-^  from  Eqns  (27)  through  (29). 
The  trajectory  during  a  reefed  inflation  is  calculated  by 
successive  calls  to  subroutine  CALC  until  TR  =  1.  The  opening 
force  is  found  from  (26)  with  tfRATR  replacing  tff AX  If  the 


29 


parachute  is  not  fully  inflated,  i.e.  if  another  inflation 
stage  is  required,  there  is  in  general  a  coasting  phase  before 
the  next  inflation  begins.  The  length  of  this  phase  is 
determined  by  the  input  of  the  reefing  cutter  delay,  t^.  The 
trajectory  during  the  coasting  phase  is  determined  by  success¬ 
ive  calls  to  TRAJEQN,  with  the  values  of  the  parachute- load 
system  mass  and  the  drag  area  of  the  system  in  its  partially 
inflated  configuration,  and  time  increments  At,  until  the 
time  exceeds  tCD.  At  this  point,  the  values  of  Rq,  Rp 

and  t^D  for  the  next  inflation  stage  are  read.  If  the  time 
already  exceeds  ”3'  when  =  1,  no  coasting  phase  is 

included  and  these  values  are  read  immediately.  If,  at  the 
point  =  1,  the  parachute  is  fully  inflated,  i.e.  at  the 
end  of  the  last  inflation  stage,  control  is  returned  to  MAIN 
PROGRAM. 

When  the  main  parachute  is  inflated  to  a  reefed  configura¬ 
tion  at  the  entry  to  the  subroutine,  i.e  when  the  reefed  main 
parachute  extraction  system  is  used,  the  number  of  inflation 
stages  is  equal  to  the  number  of  reefing  lines,  NREEF.  In 
the  general  case,  the  number  of  inflation  stages  is  equal  to 
NREEF  4-  1.  Thus,  to  distinguish  between  the  two  possibilities, 
the  process  described  above  is  performed  NREEF  4-  1  -  IEXTRAG 
times,  the  value  of  IEXTRAG  being  1  for  extraction  by  the 
reefed  main  parachute  and  0  otherwise.  The  number  NREEF  can 
assume  any  integer  value  up  to  9  in  the  present  arrangement 
of  the  computer  solution,  the  restriction  being  due  merely  to 
the  input  format  for  NREEF  and  the  dimension  of  the  array 
REEF. 


2.  Subroutine  FILLTIM 

a.  Input 
None 
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b.  Output 
None 


c.  Formal  Parameters 

VO,  XO,  ZO,  THETAO,  MS,  HO,  HI,  N,  VOLD0T,  TF 

d.  Common  Blocks 

/CtoST/:  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST 

N0USE 

/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  UNUSED,  UNUSED2,  UNUSED3 

e.  Methods 

The  filling  time  is  given  by  the  equation 

Y0LUN3E  =  *  ^0t-V  ^  (30y 

for  the  general  reefed  case.  This  formula  applies  for  the 
unreefed  case  by  replacing  the  subscript  R  by  f.  The  func¬ 
tion  of  subroutine  FILLTIM  is  to  evaluate  the  filling  time 
by  an  iterative  scheme  as  follows. 

An  initial  estimate  for  the  filling  time  is  made  by 
FILLTIM  from  the  formula 


’4f? 


2V,,  0b 


(31) 


The  estimate  is  based  on  the  concept  of  a  constant  filling 
distance ,  adjusted  for  the  projected  diameter  at  the  end 
of  the  inflation.  An  approximation  to  Eqn  (30)  is  found 
by  Simpson 1 s  rule  with  N  increments,  i.e .  Eqn  (30)  is  eval¬ 
uated  for  N  values  of  TR.  The  required  information  is  found 
from  calls  to  CALC,  for  the  values  of  TR,  ATR,  T,  and  AT, 
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where 


T=  T  Pr\  +  C'-Tr 


AT  = 


K-O  atr 


Again,  in  the  unreefed  ease  the  values  TR  and  T  are  ec 

as  well  as  the  increments  A and  AT  since  h  ,  «=  0  and 

K,  o 

h^  =  2tt0  The  effective  porosity  c  is  found  from  (Ref 


c=  c, 


where  cQ  is  assigned  the  constant  value  0.05*  This  value 
was  selected  as  representative  of  the  parachute  cloths 
encountered  in  this  study ,  MIL-07020,  Types  I  and  II,  MIL- 
07350,  Type  I,  and  MIL- C- 42 7 9,  Type  II,  based  on  Ref  1. 

If  v  represents  the  quantity  under  the  integral  sign  in  (30) 
the  volume  increase  corresponding  to  a  given  value  of  the 
filling  time  t£R  is  approximately,  by  Simpson* s  rule. 


V0L-  -M(r, 


AT  f \ 

—  ^v„  +  4v1  +  '2v4 +•  •« j 


(35) 


The  value  of  V0L  from  Eqn  (35)  is  compared  with  the  parameter 
V0LUME,  and  a  new  filling  time  approximation  is  given  by 


V0L 


The  above  process  is  repeated  until  the  value  of  tfR  is  such 
that  V0L  from  Eqn  (35)  satisfies  the  condition 


V0L  -V0LunE 
VOLUME 


<  10 
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The  number  tfR  is  then  returned  to  subroutine  0PENING  as  the 
approximation  to  the  filling  time. 


3 .  Subroutine  CALC 

a.  Input 
None 

b .  Output 
None 


c.  Formal  Parameters 

CAPT,  TF,  DCAPT,  DCAPTR,  M,  DV,  DP,  D 

d.  Common  Blocks 

/C0NST/:  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST, 

N0USE 

/VARIABL /:  RH0,  T,  V,  THETA,  X,  2,  UNUSED,  UNUSED2,  UNUSE D3 


e.  Method 

The  function  of  subroutine  CALC  is  to  evaluate  the 
following  equations. 

2  Do  -p  Vfc 


Op  = 

P  X 


(38) 


^  P  vc^y 


2  Pi 


(39) 
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(40) 


d  (.Op)  _  Qo 

dT  “  -ft  Ty2 


dU) 

dT~ 


d  -  4  (.Ls^LfO  Dp 

4CLs^-Lr>)  +  2O0-  XDp 

r  ~\  a,  \ 

[4  Us+Lrn)  +  2D0  -  TTbp  J  -HLs+Lr,)  — 

[4  CLs-^LrV  ZOo-HOp]2 
+  4  U-s+lQ  **  Pp  dCOpV^T 

[4lLs+L(0  +  2D4”'rt>Dp3i 


(43) 


33  uw? 
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A  x  =  v  stov  0  *fc^  (49) 


Al  -  vco>0  (50) 


Free  Descent;  Three  Degrees  of  Freedom 

The  final  calculation  phase,  the  free  descent  phase,  is 


required  for  all  of  the  separation-deployment  systems.  Due 
to  the  degree  of  complexity  involved  in  the  general  case 
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which  has  six  degrees  of  .freedom,'  the  computer  solution  was 
programmed  separately  for  the  restricted  problem  of  three 
degrees  of  freedom,,  The  trajectory  simulation  is  readily 
applicable  to  either  three  or  six  degrees  of  freedom  merely  by 
inserting  the  proper  subroutines  in  the  computer  program  and 
using  the  correct  input  value  for  allowable  degrees  of  freedom 
in  the  main  program. 

When  the  simulation  is  restricted  to  three  degrees  of 
freedom*  the  subroutines  required  by  the  qpmputer  program  for 
the  free  descent  calculation  phase  are  M0TI0N*  INTGRAT*  FORMULA* 
EM0TI0N*  DYNAMIC*  and  C0EFFTS.  The  function  of  this  calcula¬ 
tion  phase  is  to  calculate  the  trajectory  of  the  parachute- load 
system  during  the  period  from  full  inflation  to  a  specified 
time  thereafter  or  until  a  specified  altitude  is  reached*  as 
defined  by  the  program  user. 

1.  Subroutine  M0TI0N 

a.  Input 
TST0P,  ZST0P 

b.  Output 

ALL  NINT:  T*  ALT-RZ,  RX3  RZ*  V,  VX,  VZ3  A  at  the  first  three 
instances  the  parachute- load  system  is  vertical  or 
near  vertical 

NINT  >  0:  T*  ALT-RZ*  SYSANGL*  TRAJANG,  RX,  RZ,  V*  VX3  VZ,  A 

c.  Formal  Parameters 
DQ3  PC TERR 5  ETA*  DT 

d.  Common  Blocks 
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/C0NST/:  ALT,  PI,  G,  GDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST, 

NINT 

/VARIABL/ :  RH0,  T,  V,  THETA,  X,  Z,  ALPHAL,  ALPHAP,  LI 
e.  Method 

The  problem  during  the  free  descent  calculation  phase  is 
to  solve  the  six  differential  equations  of  motion  for  Uv  Ws 
Qj,  93  xs  and  z  simultaneously.  These  quantities  are  repre¬ 
sented  in  the  computer  solution  by  the  six- dimensional  array 
Y.  The  initial  conditions  for  the  free  descent  calculation 
phase  are  determined  by  the  conditions  which  exist  at  the 
instant  of  full  inflation.  Thus  M0TI0N  first  assigns  the 
following  values  to  Y: 

Y(0  *  u  =  o  (51) 


yU)=  W  s  V 

YW).  Q-  -  ^ 

"Y  X 


(54) 

(55) 

(56) 


(52) 

(53) 
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where  v5  0,  x,  and  z  are  the  values  of  velocity,  system  angle, 
and  position  of  the  mass  center  determined  by  OPENING  at  the 
time  of  full  inflation  of  the  main  parachute.  The  array  YD0T 
represents  the  time  derivatives  U,  W,  Q,  0,  x,  and  z.  An 
initial  condition  is  assigned  for  Q  such  that 

YOBTM.i-  (57) 

the  value  of  dv/dt  being  given  by  the  formal  parameter  DQ. 

Once  the  initial  conditions  have  been  established,  the 
actual  solution  of  the  equations  of  motion  is  accomplished  by 
means  of  subroutine  INTGRAT.  For  the  first  call  to  INTGRAT, 
the  calling  parameter  ID  is  set  equal  to  +1,  and  for  subse¬ 
quent  calls  ID  equals  -1.  The  calls  to  INTGRAT  are  made  as 
part  t>f  a  D0  loop  which  has  a  variable  terminator,  NUMB. 

Output  of  the  trajectory  parameters  is  executed  after  the 
operations  of  the  D0  loop  have  been  completed;  the  loop  is 
then  executed  again.  This  process  continues  until  the  free 
descent  calculation  phase  is  terminated.  The  original  value 
of  the  D0  loop  terminator,  j NINT| ,  is  set  by  the  program  user 
via  the  main  program.  Since  the  integration  routine  INTGRAT 
automatically  selects  time  increments  for  the  solution  of  the 
equations  of  motion,  output  could  come  at  infrequent  intervals 
of  time  as  the  time  increment  is  increased  during  phases 
which  approach  steady  state  conditions  if  the  loop  terminator 
were  not  allowed  to  vary.  Thus,  if  at  any  time  the  product 
of  NUMB  with  the  time  increment  DX  (assigned  by  INTGRAT)  is 
larger  than  one  second,  the  value  of  NUMB  is  adjusted  so  that 
trajectory  parameters  will  be  printed  at  roughly  one  second 
intervals. 

The  parameters  of  the  call  to  INTGRAT  are  T,  Y,  TF,  G, 
PCTEREL,  ETA,  Xl,  X2,  X3,  W,  YD0T,  B,  ID,  DX,  TI,  and  K.  The 
parameter  G  indicates  the  number  of  equations  to  be  solved  by 
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INTGRAT;  .XI*  X2,  X3,  W,  and  B  are  arrays  established  for  use 
in  INTGRAT  and  F0RMDLA;  and  DX  is  the  time  increment  set  by 
INTGRAT .  Tl  is  a  temporary  variable  for  the  time  values,  and 
K  is  a  signal  which  is  positive  if  the  solution  of  the  equa¬ 
tions  blow  up  due  to  the  parachute  angle  of  attack  exceeding 
85° .  The  results  of  the  call  to  INTGRAT  are  the  values  of 
the  arrays  Y  and  YD0T  evaluated  at  the  time  TF,  which  is 
defined  before  each  call  to  INTGRAT  as  TF  =  T  +  DX  or,  before 
the  first  call,  as  TF  -  T  +  DT . 

After  calling  INTGRAT,  the  next  step  taken  by  M0TI0N  is 
to  evaluate  the  position,  velocity,  and  acceleration  compon¬ 
ents  of  the  load,  following  the  relations 

Vfx  =  X  +  S\v>6 


-  2  +i,  cos  © 

Vj[y  =  cos  ©  +  *W 

Vjj^  -  •r.CXJ.'+Qi,^  Svv> Q  +WCO5  0 

o^x=(V+  QW+QJt,)  C0SQ  v-o'jl,) 

a.=  -tU‘+QW+4i1)^9  +  CW-0U-Gfi1)  c 05 & 

T 

The  value  r t  is  first  stored  as  a  variable  R2  for 
*  z 

consideration  of  interpolation  at  the  end  of  M0TI0N. 


(58) 

(59) 

(60) 

(61) 

(62) 

(63) 
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The  load  trajectory  angle  is  given  by 


where  is  available  from  the  Common  block  /VARXABL/,  having 
been  calculated  in  EM0TI0N. 

In  order  to  calculate  the  trajectory  parameters  at  the 
first  three  instances  when  the  system  is  vertical  or  near 
vertical.,  it  is  necessary  to  define  the  oscillatory  behavior 
of  the  system  in  a  quantitative  sense.  A  counter,  MARK,  is 
defined,  initially  equal  to  zero,  such  that  it  is  increased 
by  one  each  time  that  the  sign  of  the  system  angle  changes  or 
the  system  angle  reaches  an  extreme  position.  Then  the 
parachute-load  system  will  be  vertical,  or  near  vertical,  when 
MARK  equals  one,  three,  and  five,  and  the  corresponding 
values  of  t,  hQ  -  rjx,  rjz,  v,  v^,  v^,  and  a£ ,  which 

have  been  stored  in  the  array  VERTPAR,  approximate  the  re¬ 
quired  trajectory  parameters  at  the  first  three  vertical 
positions. 

The  final  calculations  performed  by  M0TI0N  occur  when  the 
time  exceeds  TST0P  or  the  altitude  loss  exceeds  ZST0P.  The 
tr^ectory  "parameters  at  the  point  t  =*  TST0P  or  z  -  ZST0P, are 
then  found  by  linear  interpolation,  using  a  correction  given 
by 


ZST0P- 

^2- 


(65) 


ox 


C.25RR  = 


TST0P--t 

—— 


(66) 


The  final  values  of  the  parameters  are  then  printed,  and  con¬ 
trol  is  returned  to  the  main  program. 
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2 .  Subroutine  INTGRAT 


a.  Input 
None 

b„  Output 
None 

c.  Formal  Parameters 

T,  Y,  TF,  NN,  PCTERR,  ETA,  TRY1,  TRY2,  TRY3,  W,  YD0T,  Z,  ID, 
DX,  Tl,  I SIGNAL 

d.  Common  Blocks 
None 

e.  Method 

This  subroutine  is  arranged  in  the  form  of  a  general 
solution  method  for  a  given  number  of  simultaneous  first  order 
differential  equations.  The  numerical  technique  employed 
is  the  Runge-Kutta  method,  (Ref  2)  and  INTGRAT  is  based 
strongly  on  the  University  Computer  Center  library  subroutine 
RK.  The  advantage  of  structuring  the  subroutine  in  the 
manner  of  a  general  differential  equation  solving  method  is 
that  the  same  subroutine  can  be  used  without  modifications 
to  solve  both  the  three  and  six  degree  of  freedom  cases. 
Furthermore,  with  slight  modifications,  the  subroutine  can  be 
used  to  solve  a  system  of  differential  equations  which  may 
arise  at  a  future  time  if  substitute  methods  are  to  be  used 
for  any  of  the  trajectory  calculation  phases  rather  than  those 
for  which  the  trajectory  simulation  computer  program  was 
originally  written o 
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The  formal  parameter  T  represents  the  initial  time,  TF 
is  the  time  at  which  the  values  of  the  arrays  Y  and  YD0T  are 
desired,  and  Tl  is  the  running  value  of  the  time  used  by 
INTGRAT.  When  returned  to  M0TI0N,  Tl  and  TF  are  equal.  NN 
gives  the  dimension  of  the  arrays  Y,  YD0T,  TRYl,  TRY2,  TRY3, 
ETA,  W,  and  Z,  and  physically  represents  the  number  of  equa¬ 
tions  to  be  solved.  For  the  free  descent  calculation  phase, 

NN  is  twice  the  allowable  number  of  degrees  of  freedom. 

PCTERR  and  ETA  are  the  relative  and  absolute  error  parameters 
input  to  the  main  program.  Values  of  these  parameters  are 
discussed  in  Section  IX.  ID  and  ISIGNAL  are  signals;  ID 
signals  to  INTGRAT  whether  or  not  the  call  from  M0TI0N  is  the 
first  call  and  ISIGNAL  Indicates  to  M0TI0N  whether  |  Op |  >  85° 
(the  variable  K  in  M0TI0N  is  equal  to  ISIGNAL). 

The  basic  functioning  of  INTGRAT  is  as  follows.  The 
variable  IMD0NE  indicates  whether  or  not  the  integration  has 
proceeded  successfully  to  a  solution  at  the  time  TF.  Ini¬ 
tially  IMD0NE  is  set  equal  to  -1.  If  the  call  to  INTGRAT  is 
the  first,  indicated  by  a  positive  value  of  ID,  the  time  in¬ 
crement  for  a  first  approximation  to  the  integration  with  the 
Runge-Kutta  formula  is  taken  as  TF-T.  On  subsequent  calls, 
the  time  increment  is  taken  as  DX,  which  was  a  suitable  time 
increment  at  the  end  of  the  previous  call. 

The  solution  of  the  equations  of  motion  is  approximated 
by  calls  to  subroutine  F0RMULA,  which  evaluates  the  Runge- 
Kutta  formula.  For  a  given  time  increment,  the  equations  are 
numerically  integrated  by  F0RMULA,  over  the  entire  corres¬ 
ponding  time  interval  and  the  results  stored  in  the  array 
TRYl.  To  evaluate  the  acceptability  of  these  results,  the 
equations  are  then  Integrated  over  half  the  time  interval, 
the  integrated  quantities  being  stored  in  TRY2,  and  then  over 
the  other  half  of  the  time  interval,  yielding  results  in  the 
array  TRY3.  The  two  separate  integrations,  yielding  values  of 
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the  variables  represented  by  Y  at  the  initial  time  plus  the 
time  increment,  are  then  compared.  If  any  of  the  quantities 
in  TRY 3  and  TRYl  differ  in  absolute  value  by  more  than  the 
prescribed  relative  or  absolute  errors  (PCTERR  and  ETA) ,  the 
solution  is  considered  unacceptable.  The  time  increment  is 
then  halved  and  the  process  repeated  until  satisfactory 
results  are  obtained  for  Y^  at  the  time  TF. 

In  this  way,  the  actual  time  increment  used  in  F0RMULA 
may  become  quite  small.  If,  however,  five  consecutive  calls 
to  FORMULA  are  made  without  halving  the  time  increment,  the 
increment  is  doubled.  The  number  of  successful  consecutive 
calls  to  FORMULA  is  stored  by  the  variable  M,  which  contin¬ 
uously  counts  the  calls  to  F0RMULA  disregarding  the  fact  that 
control  may  revert  to  M0TI0N.  Thus,  the  solution  method  for 
the  free  descent  phase  uses  only  as  small  a  time  increment  as 
is  required  to  meet  the  prescribed  allowable  error.  If  the 
time  increment  must  be  halved  twenty  times  before  a  success¬ 
ful  integration  is  made,  as  indicated  by  MM,  control  is 
returned  with  a  signal  that  the  equations  cannot  be  integrated. 

The  last  function  of  INTGRAT  is  to  call  subroutine 
EM0TI0N  to  evaluate  the  derivatives  YD0T^  which  correspond 
to  the  time  TF.  The  third  calling  parameter  of  the  call  to 
EM0TI0N  is  1,  indicating  that  the  call  comes  from  INTGRAT 
rather  than  F0RMULA.  Control  is  then  returned  to  subroutine 
M0TI0N . 

3.  Subroutine  F0RMULA 

a.  Input 
None 
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b .  Output 


None 


Co  Formal  Parameters. 

Ys  Hs  YI  j,  NNS  W„  YD0Ts ,  Zs  I  SIGNAL 

d„  Common  Blocks 
None 

e0  Method 

The  only  function  of  this  subroutine  is  to  evaluate  the 
Runge-Kutta  formula  for  each  of  the  equations  being  solved. 
Thus  FORMULA  provides  an  approximation  to  the  integration  of 
the  equations  of  motion  by 

L*  N/v 

where 

M  m  yL 

><•,=  At  yl  CY^+iko) 

k2-  At  YL  ! 

k3*  At  Yt  CY{.,v^ke) 

to  yield  ^2$,  and  in  successive  steps  of  the  program. 

The  evaluation  of  Eqn  (67)  is  accomplished  by  means  of 
nested  D0  loops.  Initially  the  contents  of  Z  are  set  equal 
to  the  contents  of  YB0Ts  and  the  contents  of  W  and  of  Yl  are 
set  equal  to  Y.  A  D0  loop  is  then  utilized  to  call  EM0TI0N 
with  W  and  Z  as  parameters  four  times.  W  is  updated  after 
each  call  by  the  relation 
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(68) 


Wu* 

where  A »  *  *  \  At 

A3  a  A*fc 

and  YI  is  updated  by  the  relation 

yi|:>  Yit  ♦  i  »  *-'*v*At  (69) 

Relations  (68)  and  (69)  are  carried  out  by  a  D0  loop  such 
that  i  runs  from  one  to  NN.  All  calls  to  EM0TI0N  have  the 
third  calling  parameter  2  to  indicate  that  the  call  comes 
from  F0RMULA  rather  than  INTGRAT.  If  I  SIGNAL  indicates  that 
the  solution  blows  up,  control  is  returned  to  INTGRAT  where 
the  time  increment  is  adjusted.  After  the  equation  (67)  has 
been  successfully  evaluated,  control  is  returned  to  INTGRAT. 

4.  Subroutine  EM0TI0N 

a.  Input 
None 

b.  Output 
None 

c.  Formal  Parameters 
Y,  YD0T,  IST0P,  ISIGNAL 


45 


d.  Common  Blocks 


/ C0NST/ :  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS,  MST, 

N0USE 

/VARIABL/ :  RH0,  T,  V,  THETA,  X,  Z,  ALPHAL,  ALPHAP,  LI 
e.  Method 


The  function  of  EM0TI0N  is  to  evaluate  the  new  array  of 
derivatives  YD0T  from  the  given  array  of  values  Y  and  YD0T. 

The  derivatives  of  Us  W5  Q,  0,  x,  and  z  are  not  explicit 
functions  of  time3  and  thus  the  only  required  information  is 
the  values  of  Us  W,  Q3  09  x5  zs  and  Q. 

The  calculations  made  by  EM0TI0N  are  as  follows.  First s 
calls  are  made  to  DENSITY  and  DYNAMIC  to  determine  the  proper 

values  of  ^2?  ^3^  "^"XX5  I YY ^  ZZ^  ^XZ^1  ^i  ^a*  ^"XX5  ^"ZZ^ 

and  Ixz  are  not  required  in  the  three  degrees  of  freedom 

solution.  The  following  equations  are  then  evaluated  in 
sequence. 


v*  =  v*  *  V7* 


(70) 


vf*  =  v*  +  Qi  iZz  +  21 JQ12 


(71) 
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(74) 


v/  = 


,  .i(  v*q.X,) 

*a'  icw"  v”  -^r~/ 


Subroutine  C0EFFTS  is  then  called  to  give  the  values  of  Cx( 
Cnoj)  and  Gf^  corresponding  to  Op«  Calling  parameter  XST0P 
indicates  to  G0EFFTS  whether  the  call  tp  EM0TI0N  was  from 
INTGRAT  or  F0FMULA,  and  ISIGN^J,  indicates  whether  \c^\  <  85< 
If|°p[is  to°  lar§e»  control  is  returned  to  the  calling 
pro gram w  The  equations  of  motion  are  then  evaluated  if 
1 0£p|  <  85°,  i.e. 


VV)  *  W\«*  +  Nno, 


D 

—  +■  —  sin  -  QW 

W)T  wy  * 
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0  a  Q 


X  =  "Ucos  Q  +  W  StV>  © 


im-X JsVoQ  +WCO5  0 


The  relation  between  the  quantities  as  expressed  above  and 
the  arrays  Y  and  YD0T  is 


Y  CO  =  v  ,  YdutCOs  V 

YU)  ,  YDibT^y='w 

YU)=  Q  ,  YD0TC3)  =  Gl 
YC4)=e,  YD(8TC4)a© 

71^=  x,  year  Is)  =* 

YU)S*,  Yd0tU)*z 

Control  is  then  returned  to  the  calling  program,,  either 
INTGRAT  or  FORMULA 0 


5 .  Subroutine  DYNAMIC 

a.  Input 

None 

b.  Output 
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None 


c .  Formal  Parameters 

mi),  LI,  L2,  L3,  IXX,  IYY,  IZZ,  IXZ,  MI. 


d.  Common  Blocks 

/DYNAM/:  DN0T,  XI,  X2,  X3,  X4,  X5,  MBR,  ML,  MLS,  MP,  MR, 
MRX,  LAZO,  IZ 

e .  Method 

The  equations  programmed  in  DYNAMIC  are: 

-  f V  (82) 


XWUM  -  yvv  9C 

S  =  -  (83) 

XDEN&M  +  **1 

s^-5  (84) 

X  2=  "  S  -  Sc  ,  (85) 

-  0o-  5  (86) 

^o."  (p-'51<*0  f  Dp  ig  (87) 


49 


+ 


z  /  z 

*2  4  vr'LsC5-S,')  + 

Cs2 -s)Z  +  vn6r  (S4 -S  )l 


(S  «-5)* 

+  WjJl.?  (88) 


Tyy  -  Iy  4  I  w. 
^XX  =  ^YY 


(89) 

(90) 


TXS  =  0  (92) 

■I  ■  /.;  ;  ., 

Thus  the  present  arrangement  of  the  computer  solution  is  for 
parachutes  which  are  rotationally  symmetric;  For  a  parachute 
without  rotational  symmetry^  subroutine  DYNAMIC  must  be  modi¬ 
fied  for  the  appropriate  components  of  the  inertia  tensor. 
After  evaluation  of  the  above  equation $  control  is  returned 
to  the  calling  program. 


6.  Subroutine  C0EFFTS 

a.  Input 
None 

b.  Output 
None 
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c.  Formal  Parameters 

ALPHAP,  CT,  CN,  CM,  I PRINT,  I SIGNAL 

d.  Common  Blocks 
None 

e.  Method 

The  function  of  this  subroutine  is  to  evaluate  the  aero¬ 
dynamic  coefficients  corresponding  to  the  parachute  angle  of 
attack.  If  is  larger  in  absolute  value  than  85°,  the 
parameter  I SIGNAL  is  set  equal  to  +1  and  control  returned 
immediately.  If  I PRINT  is  la  message  indicating  this 
occurrence  is  printed,  and  the  successive  travel  of  parameter 
ISIGNAL  will  cause  the  particular  run  to  terminate.  Other¬ 
wise,  the  only  result  will  be  to  decrease  the  time  increment 
in  subroutine  INTGRAT,  after  control  is  returned  by  means  of 
EM0TI0N  and  FORMULA. 

If  Op  is  within  the  acceptable  range,  the  following  re¬ 
sults  are  calculated  for  solid  flat  circular  or  T-10  para¬ 
chutes: 

Solid  Flat  Circular: 
for  |  Op  <30° 

CTo  =  O.G47  -  {\.?x\6S)  |o(p|  +  C?.l5-  x\0'4)lo(f|2 

-(7.13  x  10^)  l«f|3  +  (1.33  xlo"0)  (cxp|4  (93) 

C js/o  - (^.74  x  10 3)  oCp  *  {s.S7  x  lo"  +  )  ap8 

-(I.S3XIO"5)  oc?3  +(l.9x*07')  ofp*  (94> 

(^p>o) 
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for 


M 


cm0=  (4-844  x  id3)  dp  -  (3.44  xld4)  oCp* 
+  (l.042>  x  lo"'5’)  ci*  -(1.32  x  VO7)  oU4 

Uf>°) 


a  30 


T- 10: 
for 


(95) 


Cy^  ~  O.G2 

(96) 

CNo  =  (-005  6)  (oCp-300)  +  .04 

T 

-x) 

V 

O 

(97) 

eMtt=  -(.0044)  (olp  -30°)  -  .034 

(*p  >o) 

(98) 

<  30° 

CTc>a  0.570  -  (2.48  x  lo'3)  l<*p|  +  (l.2l4xld3)  l<xpl 
-(7.C.87  X  io'5)  |ocpl3  +  (1.27  97 xio'0)  |ocp|4 


(99) 


CNo=  -(f.oFSxlo'4)  otp  +  (I.9S-X10’3)  <XpZ 
+  (fe.Oza  x  I0‘5)  dp3  -  (6.827  x  id7)  «p4 

(v°) 
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CM  *  (l-845x  lo'2)  «P  - (.1-929  x \03)  0Cp 

+  (G.18  x  to'4")  «p3  -  (^8.709  x  lo'7)  <*p4 
C«p>o) 


(^.00  32)  (jo(p|  -  SO*)  +  .  SST2 

Cn0=  C.0072)C°(p-:Jo0)  +  >©C4  C«p>o) 

Cm0=  -(..ooto)(eXp-100)  - ,05G  C^p^o)  (104) 

The  proper  subroutine  must  be  inserted  for  computer  trajectory 
simulations  with  a  given  parachute  type  so  that  the  corres¬ 
ponding  aerodynamic  coefficients  are  used.  Any  parachute  type 
other  than  the  solid  flat  circular  or  T-10  may  be  used  by 
properly  providing  the  aerodynamic  coefficients  by  means  of 
subroutine  C0EFFTS  in  the  manner  outlined  here  for  solid  flat 
circular  and  T-10  parachutes. 


for 


«P 


>  30 


” 


(101) 


(102) 


E.  Free  Descent;  Six  Degrees  of  Freedom 

The  free  descent  calculation  phase  follows  the  Same 
organization  when  six  degrees  of  freedom  are  allowed  as  when 
the  trajectory  simulation  is  restricted  to  three  degrees  of 
freedom.  The  names  of  the  subroutines  are  the  same  for  the 
six  degree  of  freedom  solution  as  for  the  solution  allowing 
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only  three  degrees  of  freedom,  with  the  exception  of  the 
addition  of  subroutine  C0SINES  for  the  six  degree  of  freedom 
case.  The  subroutines  INTGRAT,  F0RMULA,  and  DYNAMIC  are 
identical  for  both  cases.  Subroutines  M0TI0N,  EM0TI0N,  and 
b0EFFTS  are  not  the  same  when  six  degrees  of  freedom  are 
allowed.  In  the  following,  only  subroutines  M0TI0N,  EM0TI0N, 
C0EFFTS,  and  G0SINES  are  discussed. 


1.  Subroutine  M0TI0N 

a.  Input 

TST0P,  ZST0P 

b.  Output 

ALL  NINT:  T,  ALT-RZ,  RX,  RY,  RZ,  V,  VX,  VY,  VZ,  AT, 

at  the  first  three  instances  the  parachute-load 
system  is  vertical  or  near  vertical 

NINT  >  0:  T,  ALT-RZ,  SYSANGL,  TRAJANG,  RX,  RY,  RZ,  V,  VX,  VY, 
VZ,  AT 

c.  Formal  Parameters 

DQ,  PCTERR,  ETA,  DT 

d.  Common  Blocks 

/ C0NST/ :  ALT,  PI,  G,  CDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS, 

MST,  NINT 

/VARIABL/:  RH0,  T,  V,  THETA,  X,  Z,  ALFHAL,  ALPHAP,  LI 

e.  Method 

The  basic  aspects  of  subroutine  M0TI0N  are  the  same  for 

the  three  and  six  degree  of  freedom  cases.  All  input  and  out- 
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put  is  the  same,  except  that  position  and  velocity  components 
in  the  y-direction  are  included  when  all  six  degrees  of  free¬ 
dom  are  allowed.  The  procedures  for  output  and  for  calling 
the  solution  routine  INTGRAT  with  variable  time  increments 
are  exactly  the  same.  After  each  call  to  INTGRAT,  the  posi¬ 
tion,  velocity,  and  acceleration  components  of  the  load  are 
evaluated  by 


(105) 

iJ"*1  1 

(106) 

**,.«*  +  i, 

(107) 

Vjtx=(U-Qi,)  q.h  +  (V- a,/  i  W  »,3 

(108) 

Vj(  =  (V+Q i,)  at,:  +.  Cv- Pl,)atz  +  W 

(109) 

(5^i)a9i  +  tv-.pt,)  <*w  t  Wa3V 

(HO) 

e3  «  U+QW-RV  q.4.,  +  pRjt, 

(111) 

C4=  V  +  RU-  PW  -  Pjt,  *  QRjt, 

(112) 

Cj  -W  -PV  -  QU  -XP%'Q,)JI, 

(113) 
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(114) 


aAx  =  °3au  4  c4  ai z  *  al3 

s  ^3  ^21  4  C4  ^33  (115) 

Qj.g  -  C3  ^-31  +  C4  a3e  +  Q5  ^33  (116) 

For  the  six  degree  of  freedom  case,  the  system  angle  and  load 
trajectory  angle  are  defined  by 

<=is  =  cos'1  Ca3s)  (117) 

/  .  .  -  v 

°<-bjl  =  COS 

The  values  of  the  trajectory  parameters  corresponding  to  the 
first  three  vertical  positions  are  stored  in  the  array  VERTPAR 
and  are  determined  in  the  same  manner  as  for  the  three  degrees 
of  freedom.  When  the  termination  condition  TST0P  or  ZST0P  is 
exceeded,  the  trajectory  parameters  at  the  given  condition  are 
approximated  by  linear  interpolation  and  control  is  returned 
to  the  main  program. 

-t  •  V- 

2.  Subroutine  EM0TI0N 

a.  Input 
None 


]  K*vj5*.v^]V‘;\ 


(118) 
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b.  Output 

None 

c.  Formal  Parameters 
Y,  YD0T,  IST0P,  I SIGNAL 

d.  Common  Blocks 

/C0NST/:  ALT,  PI,  G,  GDP,  DN0T,  CDSL,  LSS,  ML,  MP,  MSS, 

MST,  N0USE 

/VARIABL/ :  RH0,  T,  V,  THETA,  X,  Z,  ALPHAL,  ALPHAP,  LI 

e.  Method 

The  purpose  of  EM0TI0N  is  to  evaluate  the  equations  of 
motion,  providing  the  array  YD0T  containing  the  time  deriva¬ 
tives  of  the  twelve  variables  given  the  previously  existing 
values  of  Y  and  YD0T.  The  calculation  procedure  for  subrou¬ 
tine  EM0TX0N  is  as  follows.  The  values  of  £ i  £3*  ^xx* ' 
Iyy»  ^ZZ?  ^XZ’  mi>  an<^  ma  are  determined  by  means  of  calls  to 
DENSITY  and  DYNAMIC *  EM0TI0N  then  finds  the  following 
quantities: 


Uj  *  V+  Q£, 

(119) 

S 

1 

II 

(120) 

Up=V+Q  U 

(121) 

Vp-VrP JU 

(122) 

(123) 
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Vp2  =  Up  +  Vp+W 

(124) 

(125) 

(126) 

*r  w'|  (.vJW),,il 

(127) 

cos 


W 


(u^+^+w1)17*' 


(128) 


(129) 


(130) 


(131) 
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0p  represents  the  angle  between  the  systems  axis  and  the  para¬ 
chute  velocity  in  the  plane  formed  by  the  systems  axis  and  the 


parachute  velocity.  The  aerodynamic  coefficients  are  then 
found  by  calling  Cj&EFFTS;  g^,  (3p,  and  0p  are  supplied  and 
Ct0*  Cxq,  cYq>  cMX0>  and  CMY0  are  returned  from  C0EFFTS.  The 
signals  IST0P  and  ISIGNAL  in  the  call  to  C0EFFTS  represent 
the  same  signals  as  in  the  three  degree  of  freedom  case.  The 
aero dynamic  forces  and  moments  are  given  by 


SlX  *  1.  f  yf  Cn,Xo  So  (132) 

PNY  =  2  f  V  CNy0  (133) 

T=  i  f  vf?CTe  Sc  (134) 

*AX  •  ipv*  D0  (135) 

2  f  V  Cmvo  0„  (136) 


The  direction  cosines  are  evaluated  by  a  call  to  COSINES,  and 
the  equations  of  motion  are  then  evaluated: 


j  '  (—  )  9  ^  + 

+  ^  -  OT*  RV 


(137) 
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V-(2^r)s^  -  SCosA^Pi 


+  E^r  + 


^  P^-Ru 


w  =  (. 


VY>Jl  +  y0S5  +  V>r‘p 


-)  9R«.  -  ^  cos  y 


Wr 


-  —  +  (  'rnl+'rn*. 


aos 


*1 


^^7^)  -  pv  ^  Q-U 


(139) 


P  =  _ 


FIVY  ^3  . 


■XX 


+  wax  +  3l  C0S48; ^R.  jl, 

Txx  TSX 


1'XX  ^xx  V  Ixx  / 


(140) 


•Xs 


Lxx 


A  -  Fk/X  U  ,  May  ,  °A  .  *,  .  » 

t*  -  — — -  +  — -  +  — —  Cos  Of  Sivi  a,  Ji\ 

Iyy  Iyy  Iy T  (141) 


3a3l 

IYY 


K-A1*vnp.lT)-(^5^)^-R-) 


2xx"^afc\  Ja\c?\  -^X8 

Iyy 


R  =  Cl 


.  I 


xz 


l%z 


(Iyx-Txx)-GR  In.  (142) 


'  PQ  1 7.7.  "I 


W- 
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©  -  C05  -  R  5*»v)  (p 

(143) 

(jj)  =  P  +  Q  $m +  Rcoi  (p“tc*>n0 

(144) 

y  =  [Q  $\r\  (pt  R  cos  GjO  see  0 

(145) 

X  «  U  CKyy  +  +  W  a, 3 

(146) 

y  *  U  ^+Van  +' Wa^ 

(147) 

U a^>  VaS/2 

(148) 

Control  is  then  returned  to  the  main  program. 

3.  Subroutine  C0 SINES 

a.  Input 
None 

b .  Output 
None 


c  .  Formal  Parameters 


Common  Blocks 


d. 

None 

e.  Method 


The  formal  parameters  of  C0 SINES  are  A  and  Y.  A  is  a 

3  x  3  array  representing  the  direction  cosine  matrix,  whose 
components  are  functions  of  the  Euler  angles.  The  subroutine 
merely  evaluates  the  following  relationships: 

an  -  COS 0  cost 

(149) 

Sir)  Cf  siv-v@  Cost  -  COS  <p  Siv->  f 

(150) 

=  Cos  (p  S'r>0  cost  +  S'riCp  s'ri  t 

(151) 

a2=  COS0  S'nt 

(152) 

sm  9  siv-)0  sin  t  -  cos  ^  cost 

(153) 

a 23  -  cos  (p  siv-i  0  sin  t  ~  s»>o  Cj)  cos  t 

(154) 

CX3| =  "  S\>o  0 

(155) 

a 32“  S' NO  (p  CO 5  0 

(156) 
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(157) 


»  CO 5  C&sO 

Control  is  then  returned  to  the  calling  program. 


4.  Subroutine  COEFFTS 

a.  Input 
None 

b.  Output 

None  ..  : .  . 

c.  Formal  Parameters 

ALPHAP,  BETAP*  P0LANG*  CT*  CX*  CY*  CMX*  CMY,  IPRINT,  X SIGNAL 

d.  Common  Blocks 
None 

e.  Method 

This  subroutine  supplies  the  aerodynamic  coefficients  as 
functions  of  the  parachute  angles  o^*  and  e  At  present* 

measurements  of  the  functional  relationships  which  are  required 
are  not  avilable.  As  an  example  of  a  possible  arrangement 
for  this  subroutine*  the  following  relationships  are  based  on 
two-dimensional  measurements  for  a  solid  flat  circular  para¬ 
chute  (Ref  3)  : 

CTo  =  0.647  -  0-2x\O*^)  l©j>l  +  (9.15-x  10"  +  )  |©p|2 

-  (jA'i  X 10'4-)  l©(,|3  +  (j.,33 *  lo"t' )  1  &j».|  *  )  \©p\  ^  30°  (158) 
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Cwxo  =  -C6'74  x '°  3)  +  (S.5"7  xl0"4)o<p  -  (7.13  x  icf5) 

+  (l-9  Xto"7)oc^4  ^  0£oCp<30°  (159) 

CNY0=  -  U-14  xlO**)pp  +  (JS'-S-7xV0+>>p  *  -(j.\3*\0S)pS 

+  (j**>  x  10-7)  pp4  5  0,  ppi30«  (16Q) 

CmY0=  C4.844  x\0'3)  <*p  -  (.3-94  Xlcf4)  o(p  +  O-O^Sxlo'5)^3 

-(j.32.x  lo"7)  *p4  J  O£odpX30°  ^161^ 

C^Xo  =  C4-  844  xlo-3)  -  (,3.94  xlO*4  )^p  +(l.o43xio'5’)pp 

-(,1-Se  x  10'7)  flp4  5  o  £  |3pt3o“  (162) 

ct0=  0.(,Z  ,  l©p|  >3o°  (163) 

CNX0=  C-oo^t)(,o<p-3o0)  +  .04 

0<  p  >  3o»  <164> 
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(165) 


°WYo  =  Ooa5Co)CPp^30°)  +  04 

Pp  i  30* 

cMy0=  -(;0044)  (<*p-3o°)  -  .034 
«p  >  30° 

CmX(i=  -  (.0044) (,j3p-  30°)  -  .034 
Pp  2  30 " 

Limits  must  be  set  on  the  allowable  magnitude  of  the  angles 
to  prevent  the  solution  from  blowing  up.  When  any  of  the 
angles  are  larger  in  absolute  value  than,  for  example,  85°, 
the  parameter  I SIGNAL  so  indicates.  After  the  coefficients 
are  determined,  or  the  angles  exceed  the  limit,  control  is 
returned  to  the  calling  program. 


1.  Subroutine  DENSITY 


a.  Input 
None 

b.  Output 
None 

c.  Formal  Parameters 

$ 0 

RH0,  H 


(166) 

(167) 
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d .  Common  Blocks 
None 


e.  Method 

This  subroutine  provides  the  value  of  the  air  density  at 
altitude  h,  as  follows : 


*  (.6.06 

> 


O  £  Vi  £  15,000  -ft 


(^0.00 z  31  fc  )  (j-01 133  s) 


~^/z%  ,953 

) 


(168) 

15,000  .ft-.  i  V, 

£  35,  ooo  4t 


2.  Subroutine  TRAJEQN 

a.  Input 
None 

b .  Output 
None 

c.  Formal  Parameters 

T,  V,  THETA,  X,  Z,  RH0,  CDS,  M,  DT,  G,  ALT,  DV 

d.  Common  Blocks 
None 

e*  Method 

This  subroutine  evaluates  the  following  two-dimensional 
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point  mass  trajectory  equations: 

Av  *  [  3-e.of'  ©-  ]  At 


(169) 


40  =  -  3^-°  At 


(170) 


Ax  =  v  sVy^e  At 


(171) 


A  ^  S  v  co  5  ©  At 


(172) 


and  then  adds  these  finite  increments  to  v9  z,  and  t, 
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IV.  CALLING  PARAMETERS 

The  calling  parameters  for  each  call  by  the  various  call 
ing  programs  to  each  subroutine  are  listed  in  the  following. 
The  formal  parameter  list  of  the  particular  subroutine  is 
shown  first  for  a  reference,  followed  by  the  call  statements 
in  the  indicated  subroutine. 

A.  EXTRACT  (I SNATCH,  IEXTRAC,  VO,  DT,  TRCA) 

MAIN  PROGRAM: 

CALL  EXTRACT  (ISNATCH,  IEXTRAC,  VO,  DTI,  TRCA) 

B.  SNATCH  (TRCA,  DT) 

MAIN  PR0GRAM: 

CALL  SNATCH  (TRCA,  DTI) 

C.  BODIES  (Ml,  CDS1,  M2,  CDS2,  VI,  V2,  L,  DT) 

SNATCH: 

CALL  B0DIES  (Ml,  CDS1,  CAPM2,  CDS2,  VI,  V2,  L,  DT) 

CALL  B0DIES  (Ml,  CDS1,  MPBAG,  CDS2,  VI,  V2,  L,  DT) 
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d.  Opening  (dq,  trca,  n,  f,  v0lumg,  iextrac,  dtt) 

MAIN  PROGRAM: 

call  Opening  (dq,  trca,  nnn,  space,  v0lume,  iextrac  ,  dt3) 

E.  FILLTIM  (VOLUME,  VO,  XO,  ZO,  THETAO ,  MS,  HO, HI, 

N,  V0LD0T,  TF) 


0PENING: 

CALL  FILLTIM  (V0LUME,  VO,  XO,  ZO,  THETAO,  MS,  HO,  HI, 
N,  F,  TF) 

CALL  FILLTIM  (VOLUME,  VO,  XO,  ZO,  THETAO,  MS,  HO,  HI, 
N,  F,  TF) 


F.  CALC 

(CAPT, 

TF, 

DC APT, 

DCAPTR, 

M, 

DV, 

DP, 

D) 

0PENING: 

CALL  CALC 

(CAPT, 

TF, 

DC  APT, 

DCAPTR, 

MS, 

DV, 

DP, 

D) 

CALL  CALC 

(CAPT, 

TF, 

DC APT, 

DCAPTR, 

MS, 

DV, 

DP, 

D) 

FILLTIM: 

CALL  CALC 

(CAPT, 

TF, 

DCAPT, 

DCAPTR, 

MS, 

PV, 

DP, 

D) 

G.  M0TI0N  (DQ,  PCTERR,  ETA,  DT) 
MAIN  PR0GRAM: 

CALL  M0TI0N  (DQ,  PCTERR,  ETA,  DT3) 
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H.  INTGRAT  (T,  Y,  TF,  NN,  PCTERR,  ETA,  TRY1,  TRY2, 

TRY3,  W,  YD0T,  Z,  ID,  DX,  Tl,  ISIGNAL) 

M0TI0N  (Three  Degrees  of  Freedom) : 

CALL  INTGRAT  (T,  Y,  TF,  6,  PCTERR,  ETA,  XI, 

X3,  W,  YD0T,  B,  ID,  DX,  Tl, 

.  i  ' 

M0TI0N  (Six  Degrees  of  Freedom) : 

CALL  INTGRAT  (T,  Y,  TF,  12,  PCTERR,  ETA,  Xl, 

X3,  W,  YD0T,  B,  ID,  DX,  Tl, 

I.  EM0TI0N  (Y,  YD0T,  IST0P,  ISIGNAL) 

FORMULA: 

CALL  EM0TI0N  (W,  Z,  2,  ISIGNAL) 

INTGRAT: 

CALL  EM0TI0N  (Y,  YD0T,  1,  ISIGNAL) 

J.  DYNAMIC  (  RH0,  LI,  L2,  L3,  IXX,  IYY,  IZZ,  IXZ,  MI) 

MAIN  PR0GRAM: 

CALL  DYNAMIC  (0.002378,  Al,  A2,  A3,  A4,  A5,  A6,  A7,  A8) 

CALL  DYNAMIC  (  RH0,  Bl,  B2,  B3,  B4,  B5,  B6,  B7,  B8) 

EM0TI0N: 

CALL  DYNAMIC  (  RH0,  LI,  L2,  L3,  IXX,  IYY,  IZZ,  IXZ,  MI) 
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K.  C0EFFTS  (ALPHAP,  CT,  CN,  CM,  I PRINT,  I SIGNAL) 

EM0TI0N  (Three  Degrees  of  Freedom) : 

GALL  COEFFTS  (ALPHAP,  CT,  CN,  CM,  IST0P,  ISIGNAL) 

L.  C0EFFTS  (ALPHAP, BETAP,  P0LANG,  CT,  CX,  CY, 

CMX,  CMY,  IPRINT,  ISIGNAL) 

EM0TI0N  (Six  Degrees  of  Freedom) : 

CALL  C0EFFTS  (ALPHAP,  BETAP,  P0LANG,  CT.  CX,  CY, 
CMX,  CMY,  IST0P,  ISIGNAL) 

M.  C0 SINES  (A,  Y) 

M0TI0N  (Six  Degrees  of  Freedom) : 

CALL  C0SINES  (A,  Y) 

EM0TI0N  (Six  Degrees  of  Freedom): 

CALL  C0 SINES  (A,  Y) 
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N.  DENSITY  (RH0,  H) 

MAIN  PROGRAM: 

CALL  DENSITY  (RH0,  ALT)) 

B0DIES,  TRAJEQN,  CALC: 

CALL  DENSITY  (RH0,  ALT- 2) 

EM0TI0N  (Three  Degrees  of  Freedom) : 
CALL  DENSITY  (RH0,  ALT-Y(6) ) 

EM0TI0N  (Six  Degrees  of  Freedom) : 
CALL  DENSITY  (RH0,  ALT-Y(12)) 


0.  TRAJEQN  (T,  V,  THETA.  X,  Z,  RH0,  CDS,  M, 

DT,  G,  ALT,  DV) 


EXTRACT: 

CALL  TRAJEQN  (T,  V,  THETA,  X,  Z,  RH0,  CDST,  MT, 

DT,  G,  ALT,  DV)  ' 

CALL  TRAJEQN  (T,  V,  THETA,  X,  Z,  RH0,  CDST,  MT, 
DT,  G,  ALT,  DV) 

0PENING : 

CALL  TRAJEQN  (T,  V,  THETA,  X,  Z,  RH0,  CDST,  MS, 
DTT,  G,  ALT,  DV) 
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V.  FLOW  CHARTS 


This  section  includes  flow  charts  for  the  main  program 
and  for  all  of  the  computer  program  subroutines.  The  order 
of  presentation  corresponds  to  the  order  in  which  they  are 
discussed  in  Section  III.  All  details  of  the  input  and  out¬ 
put  in  the  various  subroutines  are  not  indicated.  Input 
and/or  output  are  treated  in  detail  only  where  required  for 
a  basic  understanding  of  the  computer  program. 
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o 


FIG  10  MAIN  PROGRAM  (Continued) 
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READ: 

PCTERR,  ETA^ 
i  ■«  1,  2N 


Subroutine  EXTRACT 


Subroutine  SNATCH 


Subroutine  0PENING 
Subroutine  MOTION 


FIG  10  MAIN  PROGRAM  (Concluded) 
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READ: 

ISTATIC,  IEXTRAC 


READ: 


^static’  CDSpilot 

D<Ppllot>  LsVlot’  tD>  H  +  Hr 


t  «  X  ■  2  •  0 

8  *  tr/2 

v  •  v0 


READ: 

L,  CDSB 

CDSex*  CD 


CDST  *  CDSt  +  CDSB 
~  mrs 


FIG  11  Subroutine  EXTRACT 


YES. 


(v0t  -  x)2  +  z2 
<  DISTANC  ? 

"  r  no" 


YES 


JISTAKC>L 


staticy 


NO 


V pilot  J 


t,  e,  x,  z,  v 


v  t— 

NTExit/7 

FIG  11  Subroutine  EXTRACT  (Continued) 
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FIG  11  Subroutine  EXTRACT  (Continued) 
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FIG  11  Subroutine  EXTRACT  (Concluded) 


<0  /C-  (Ls  +  Lr) 

—  U  (4  +  LBr>l 


FIG  12  Subroutine  SNATCH 


mt 


s 

Av 


Mlvi+  Ianvii 
MI  +  mn 


Vs  ‘  VXI 


FAlV’  CDSI*  vI>  vs>*  Eqn  (13) 

FAXI^’  CDSXI>  vix»  vs)«  E<in  C1^) 
A  ■=  1/k;  B,  Eqn  (11);  C,  Eqn  (12) 


Pmax  "  _B  +  \/^r-  C/A 


tRCA  “  C 


mI  **  +  ra  +  m 


VI  =  VII  “  vs 

x 


ss 


CDSx  “  CDSX  +  (0.015)Cd  ’ifo 


P  4 


FIG  12  Subroutine  SNATCH  (Continued) 
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FIG  12  Subroutine  SNATCH  (Concluded) 
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FfG  1 3  Subroutine  B0DIES 


FIG  14  Subroutine  ^PENING 
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FIG  14  Subroutine  ^PENING  (Continued) 
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J  -  1,N 


- - -xYES,- 

t  *  tDR  ?)^_r/4 


RG  14  Subroutine  OPENING  (Concluded) 
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FIG  15  Subroutine  FILLTIM 
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FIG  16  Subroutine  CALC 
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FIG  17  Subroutine  M0TI0N  (Three  Degrees 
of  Freedom) 
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[  -  1,NUMB 


FIG  17  Subroutine  M0TI0N  (Three  Degrees 
of  Freedom)  (Continued) 
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FIG  17  Subroutine  M0TI<£>N  (Three  Degrees 
of  Freedom)  (Continued) 


9Z 
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of  Freedom)  (Concluded) 
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94 


FIG  18  Subroutine  INTGRAT  (Concluded) 
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FIG  19  Subroutine  FORMULA 


FIG  20  Subroutine  EM0TI0N(  Three 
Degrees  of  Freedom) 
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FIG  21  Subroutine  DYNAMIC 
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FIG  22  Subroutine  C0EFFTS  (Three 


Degrees  of  Freedom) 
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ntry 


FIG  23  Subroutine  M0T10N  (Six 
Degrees  of  Freedom) 
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FIG  23  Subroutine  M0TICDN  (Six 


Degrees  of  Freedom)  (Continued) 
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RG  23  Subroutine  M0TI0N  (Six 

Degrees  of  Freedom)  (Concluded) 


1 03 


Subroutine  DENSITY 
[ALT  -  z - *p] 


Subroutine  DYNAMIC 

[p— *.^1,  l2,  1^  ,  I  yy  >  ^"ZZ  »  1XZ  9  mi^ 


Vt,  V^,  Up,  Vp, 

^t9  aP *  ® 
Eqns  (119) 


*1  '  P\\  °i 


Subroutine  C0EFFTS 

ttp,  gp,  Sp  — cXq,  cYo,  cMxi  cMyo>  cTq 


XYES  \ 

^ISIGN&L  - *>5xi^ 

j  Subroutine  COSINES 
I  8,  <P,  ♦— ►aii 


- - - - 1 - 

I  YD^r(i)^  i  -  1,12;  Eqns  (136)-(147) 

}  [l.e.  U,  W,  V,  P,  Q,  R,  9,  q»,  *,  x,  y,  2] 


FIG  24  Subroutine  EM0TI0N  (Six  Degrees 
of  Freedom) 


1 


<o  y\  ,  fx  >o 

■+—— i  |sp|  -  30°  ?  \ - * - 


FIG  25  Subroutine  C0EFFTS  (Six 

Degrees  of  Freedom)  (Concluded) 
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/iayiJi 

all  "  cpsScoat 

a12  "  sliwpainecoaifr  -  coacpaint 
a13  "  coaVainBcoat  4-  sinspalnt 
*21  "  co«0aiiit 

a22  *  siiMP8in$co8t  4-  coscpcoaf 
*23  "  coa^alndalat  -  slnepcoa^r 

a31  " 

«32  *  alnqpcoad 
*33  "  coacpcoaS 


IW)  -  8,  Y<8)  -  <P,  Y(9)  -  ,] 


FIG  26  Subroutine  COSINES 
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FIG  27  Subroutine  DENSITY 
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FIG  28  Subroutine  TRAJEQN 


VI.  COMPUTER  PROGRAM  SYMBOLS  :f 

Tables  I  through  XIX  explain  the  various  mnemonic 
symbols  used  in  the  computer  program  in  terms  of  symbols 
used  in  the  text  of  Volumes  I  and  II  of  this  report,  where 
applicable,  and  brief  comments.  The  symbols  are  arranged 
in  tables  which  correspond  to  the  various  subroutines  and 
are  presented  in  the  order  of  discussion  in  Section  III. 
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TABLE  I 

Computer  Symbols  for  MAIN  PROGRAM 


Mnemonic 

Variation 

Symbol 

Comment 

ALT 

ho 

release  altitude 

A1 

l ^  at  mean  sea  level 

A2 

CM 

^2  at  mean  sea  level 

A3 

l3 

at  mean  sea  level 

A4 

IXX 

]"XX  at  mean  sea  level 

A5 

LYY 

lyy  at  mean  sea  level 

A6 

IZZ 

Izz  at  mean  sea  level 

A7 

Ixz 

at  mean  sea  level 

A8 

mi 

m^  at  mean  sea  level 

A9 

ma 

m  at  mean  sea  level 
a 

Bl 

V 

l1  at  hQ 

B2 

% 

1 2  at  hQ 

B3 

£3 

t3  at  hQ 

B4 

Ixx 

IXX  at  ho 

B5 

IYY 

lYY  at  ho 

B6 

IZZ 

I ZZ  at  ho 

B7 

XXZ 

XXZ  at  ho 

B8 

mi 

ml  at  ho 

B9 

ma 

ma  at  ho 

GDP 

CD 

P 

drag  coefficient  of  parachute 
based  on  projected  area 

CDSL 

cDs-t 

drag  area  of  load 
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TABLE  I  (Cont'd.) 


Computer 

Symbols  for  MAIN  PROGRAM 

Mnemonic 

Variation 

Symbol 

Comment 

C1-C5 

A  block  of  alphanumeric 
characters  which  form  the  title 
for  a  particular  simulation 

DN0T 

Do 

nominal  diameter 

DQ 

dv 

cTt 

acceleration  at  the  moment  of 
full  inflation 

DTI 

At 

At  in  EXTRACT 

DT2 

At 

At  in  SNATCH 

DT3 

At 

At  in  jDPENING,  M0TI0N 

DYDN0T 

Do 

nominal  diameter 

DYML 

V 

mass  of  load 

DYMP 

mp 

mass  of  parachute 

ETA 

r| 

absolute  errors  allowed  in 

INTGRAT  -  N  dimensional  array 

G 

g 

acceleration  of  gravity 

I 

implied  D0  loop  index  for  reading 
ETA 

IAZO 

IaZ>o 

Apparent  moment  of  inertia  about 
Z-axis  at  mean  sea  level 

IEXTRAC 

Integer  Variable;  if  ISTATIC  0: 

IEXTRAC  >  0,  Reefed  main  parachute 
extraction  system, IEXTRAC  £  0, 
Extraction  parachute  system 


ISNATCH  Integer  variable;  if  ISNATCH  >  0, 

no  snatch  force  calculation 
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TABL&  I  (Cotit 'd.) 
Computer  Symbols  for  MAIN  PROGRAM 


Mnemonic 

Variation 

Symbol 

Comment 

IZ 

moment  of  inertia  about  Z-axis  due 
to  physical  masses  of  load,  para¬ 
chute,  and  suspension  system 

J 

D0  loop  index  for  NSIM 

LSS 

Ls  +  lr 

suspension  line  4-  riser  length 

MBR 

raBr 

mass  of  load  bridle 

ML 

mass  of  load 

MLS 

% 

mass  of  suspension  lines 

MP 

mp 

mass  of  parachute 

MR 

fflR 

mass  of  risers 

MRX 

mE 

mass  of  riser  extensions 

MSS 

m 

ss 

H'Lg  +  “R  +  “E  +  mBr 

MST 

total  mass 

N 

number  of  degrees  of  freedom 
allowed  in  M0TI0N 

N1NT 

number  of  calculations  between 
successive  prints  in  EXTRACT, 

snatch,  Opening  and  m0ti0n 

NN 

2  N 

NNN 

n 

number  of  steps  used  to  approxi¬ 
mate  inflation  in  0PENXNG 

) 


1X3 


TABLE  I  (Coat 1  dV) 
Computer  Symbol#  lor  MAIN  PR0GRAM 


Mnemonic 

Variation 

Symbol 

Comment 

NSXM 

number  of  total  trajectory  simu¬ 
lations  in  1  computer  run 

PCTERR 

Percentage  error  allowed  in 
INTGRAT 

PI 

TT 

3.141592653589793 

Q1 

Sc/D0 

ratio  of  reference  distance  from 
canopy  skirt  to  parachute  center 
df  volume  in  fully  inflated  con¬ 
dition  to  Dq 

Q2 

^max/Do 

projected  diameter  ratio  in  fully 
inflated  configuration 

RH0 

P 

air  density 

TRCA 

fcRCA 

time  at  which  reefing  cutters  are 
armed 

VOLUME 

V 

fully  inflated  volume 

VO 

vo 

initial  velocity 

XDEN0M 

mp  +  %  +  “R  +  mE  +  mBr  +  ml 

XNUM 

mLgsl  +  mRs2  +  mEs3  +  mBrs4 
+  *1*5:  r  mpSc 

XI 

S1 

reference  distance  from  canopy 
skirt  to  suspension  line  center 
of  mass  in  fully  inflated  con¬ 
figuration 

X2 

s2 

reference  distance  from  canopy 
skirt  to  riser  center  of  mass  in 
fully  inflated  configuration 

X3 

s3 

reference  distance  from  canopy 
skirt  to  riser  extension  center 

of  mass  in  fully  inflated  con- 
figuation 
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TABLE  I  (Cont'd.) 
Computer  Symbols  for  MAIN  PROGRAM 


Mnemonic 

Variation 


Symbol 


Comment 


X4  S/  reference  distance  from  canopy 

skirt  to  load  bridle  center  of  mass 
in  fully  inflated  configuration 

X5  Sc  reference  distance  from  canopy 

skirt  to  load  center  of  mass  in 
fully  inflated  configuration 
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TABLE  II 

Computer  Symbols  for  Subroutine  EXTRACT 


Mnemonic 

Variation 

Symbol 

Comment 

ALT 

ho 

release  altitude 

CDP 

s 

drag  coefficient  based  on  projected 
area 

CDSBAG 

CDSB 

drag  area  of  main  parachute  deploy¬ 
ment  bag 

CDSEX 

SSeX 

drag  area  of  extraction  parachute 

CDSL 

CDSt 

drag  area  of  load 

CDSP 

CDSpi.lot 

drag  area  of  pilot  chute 

CDS! 

CDST 

drag  area  for  calls  to  EXTRACT  or 
for  Eqn  (4) 

DIStANC 

distinct  values  of  l  where  modeled 
physical  process  is  changed 

DN0T 

Do 

nominal  diameter 

DPILCfe 

DPilot 

flat  diameter  of  pilot  chute 

DT 

At 

time  increment 

DV 

Av 

velocity  increment 

DX 

Ax 

x  increment,  vAt 

G 

g 

acceleration  of  gravity 

H 

<Dp/Do>eX 

D_/D  of  reefed  main  extraction 

parachute 

IC0UNT 

index  for  number  of  calculations 
made  without  print 

IEXTRAC 

IntegerVar iable ;  If  ISTATIC  s>  0  5 
IEXTRAC  >  0,  Reefed  main  parachute 
extraction  system;  IEXTRAC  0, 

Extraction  parachute  system 

ISNATCH 

/ 

Integer  variable;  ISNATCH  >0, 
no  snatch  force  calculation 

ISTATIC 

Integer  variable;  ISTATIC  <0, 

static  line  used 
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TABLE  II  (Coat’d.) 

Computer  Symbols  for  Subroutine  EXTRACT 


Mnemonic 

Variation 

Symbol 

Comment 

LENGTH 

L 

distance  load  travels  in  aircraft 

LSPILI&T 

Ls 

“Pilot 

length  of  pilot  chute  suspension 
lines 

LSS 

Ls  +  LR 

LSTATIC 

LStatic 

Static  line  length 

MST 

mrs 

mass  of  entire  recovery  system 

MR 

IUj, 

mass  used  for  calls  to  TRAJEQN 
or  for  Eqn  (4) 

NINT 

number  of  calculations  to  be  made 
between  successive  prints;  if 

NINT  <  0,  continuous  output  is 
suppressed 

PI 

TT 

3.14159... 

R 

Rex 

(^r/tt)  ex 

Do 

RH0 

P 

air  density 

T 

t 

time 

TD 

tD 

coasting  time  at  constant  drag 
area 

THETA 

e 

system  angle,  radians 

TRAJANG 

e 

system  angle,  degrees 

TRAJl 

9i 

0  at  static  line  stretch 

TRCA 

CRCA 

time  at  which  reefing  cutters 
are  armed 

T1 

C1 

t  at  static  line  stretch  or  when 
load  leaves  aircraft 

V 

V 

velocity 

VX 

vx 

x  component  of  v 

VZ 

vz 

z  component  of  v 

VO 

vo 

initial  velocity 
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TABLE  II  (Coat'd.) 

Computer  Symbols  for  Subroutine  EXTRACT 


Mnemonic 

Variation 

Symbol 

Comment 

VI 

vi 

v  at  static 
load  leaves 

line  stretch 
airvraft 

or  when 

X 

X 

x  position 

XI 

xi 

x  at  static 
load  leaves 

line  stretch 
aircraft 

or  when 

z 

z 

z  position 

i 

Z1 

Z1 

z  at  static 

line  stretch 
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TABLE  III 

Computer  Symbols  for  Subroutine  SNATCH 


Mnemonic 

Variation 

Symbol 

Comment 

A 

A 

inverse  of  spring  constant,  k 

ALT 

ho 

release  altitude 

B 

B 

Equation  (11) 

C 

C 

Equation  (12) 

CAPMl 

Mi 

+  mss 

CAPM2 

Mn 

mp  +  Hs  +  mPb 

CDP 

CD 

P 

drag  coefficient  based  on  pro¬ 
jected  area  of  parachute 

CDSL 

CDS-t  ■ 

drag  area  of  load 

CDSl 

CDSI 

drag  area  of  primary  body 

CDS2 

CDSII 

drag  area  of  secondary  body 

DELTAV 

•  Vs'VII 

difference  between  velocity  of 
parachute  immediately  before 
snatch  and  snatch  velocity 

DN0T 

V 

nominal  diameter 

DT 

At 

time  increment 

FAl 

fa 

AI 

Equation  (13) 

FA2 

fa 

AII 

Equation  (14) 

ic<5unt 

index  for  number  of  calculations 
made  without  print 

K 

k 

suspension  system  spring  constant 
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TABLE  III  (Coat'd.) 

Ccimputer  Symbols  for  Subroutine  SNATCH 


Mnemonic 

Variation 


Symbol  Comment 


L 

l 

distance  between  load  and  secondary 
body  during  deployment 

LRXBR 

L E  +  LBR 

LSS 

ls  +  lr 

ML 

mass  of  load 

MP 

% 

mass  of  parachute 

MPBAG 

mpb 

mass  of  pilot  or  extraction  para¬ 
chute  and  main  parachute  deploy¬ 
ment  bag 

MSS 

mss 

+  mR  +  mE  +  mBr 
s 

Ml 

mI 

mt  +  He 

M2 

m 

m 

P 

P 

NINT 

number  of  calculations  to  be  made 
between  successive  prints;  if 

NINT  <  0  continuous  output  is 
suppressed 

PI 

TT 

3.14159. . . 

PMAX 

P 

max 

maximum  snatch  force 

Q 

Q 

mass  ratio,  Equation  (15) 

RHCS 

P 

air  density 

T 

t  - 

t  ime 

@  systems  angle,  radians 
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THETA 


TABLE  III  (Cont’d.) 


Computer  Symbols  for  Subroutine  SNATCH 


Mnemonic 

Variation 

Symbol 

Comment 

TL 

t  at  snatch 

TRAJANG 

e 

system  angle,  degrees 

TRAJL 

0  at  snatch 

TRCA 

tRCA 

time  at  which  reefing  cutters  are 
armed 

V 

V 

velocity 

VF 

vs 

velocity  just  after  snatch 

VI 

vi 

velocity  of  primary  body 

V1L 

velocity  of  primary  body  at  snatch 

V1X 

X 

x  -  component  of  v^ 

VIZ 

VT 

z  -  component  of  v^- 

V2 

VII 

velocity  of  secondary  body 

V2L 

velocity  of  secondary  body  at 
snatch 

X 

X 

x  position 

XL 

x  at  snatch 

z 

z 

z  position 

ZL 

z  at  snatch 
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TABLE  IV 

Computer  Symbols  for  Subroutine  BODIES 


Mnemonic 

Variation 

Symbol 

Comment 

ALT 

ho 

release  altitude 

CDSl 

CDSI 

drag  area  of  primary  body 

CDS2 

CDSII 

drag  area  of  secondary 

DL 

At 

increment  in  distance  between 
bodies 

DT 

At 

time  increment 

DTHETA 

A0 

system  angle  increment 

DVl 

AVj 

primary  body  velocity  increment 

DV2 

Avn 

secondary  body  velocity  increment 

DX 

Ax 

x  increment 

DZ 

Az 

z  increment 

G. 

g 

acceleration  of  gravity 

L 

l 

separation  distance  between  bodies 

Ml 

mi 

“t  +  >SS 

M2 

V 

V 

rh6 

P 

air  density 

T 

t 

time 

THETA 

0 

system  angle,  degrees 

VI 

vi 

velocity  of  primary  body 

V2 

vn 

velocity  of  secondary  body 
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TABLE  IV  (Cont'd.) 

Computer  Symbols  for  Subroutine  B0DIES 


Mnemonic 

Variation 


X 


Symbol 


x 


Z 


Comment 

x  position 
z  position 


t 
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TABLE  V 

Computet  Symbols  for  Subroutine  0PENING 


Mnemonic 

Variation 

Symbol 

Comment 

AL 

acceleration 

ALT 

ho 

release  altitude 

CAPT 

T 

dimensionless  time 

CAPTR 

tr 

dimensionless  time  for  reefed  in- 
flation 

CDP 

c”p 

drag  coefficient  of  parachute  based 
on  projected  area 

CDS 

<CDS>p 

drag  area  of  parachute 

CDSL 

CDS-t 

drag  area  of  load 

CDST 

(CDS)p  +  CDSt;  for  call  to  TRAJEQN 

D 

d 

canopy  inlet  diameter 

DC  APT 

AT 

increment  in  T 

DCAEITR 

ATr 

increment  in  T^ 

DN0T 

Do 

nominal  diameter 

DP 

°P 

projected  diameter 

DQ 

Av/ At 

acceleration  at  full  inflation 

DT 

time  increment  during  inflation 

DTT 

At 

time  increment  for  coasting  stages 

DV 

Av 

velocity  increment 

F 

array  established  for  v.»  in  sub¬ 
routine  FILLTIM 
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TABLE  V  (Cont'd.) 

Computer  Symbols  for  Subroutine  0PENING 


Mnemonic 

Variation 

Symbol 

Comment 

FCS 

F 

max 

maximum  opening  force 

FRCE 

V 

instantaneous  opening  fofce 

G 

g 

acceleration  of  gravity 

HO 

ho 

initial  reefed  Dd/D 

HI 

hl 

final  reefed  Dp/DQ 

X  . 

D0  loop  index  for  loop  encompassing 
the  complete  inflation  with  reefed 
stages 

IC0UNT 

number  of  calculations  made  without 
print  during  coasting  stages 

I EXT RAC 

integer  variable 5  see  MAIN  PROGRAM 

J 

D0  loop  index  for  inflation  perr 
iods ;  implied  D0  loop  index  for 
printing  array  REEF 

LSS 

V+lr 

ML  . 

"V 

mass  of  load 

MP 

mp 

mass  of  parachute 

MS 

m  +  in  +  in 
l  ss  p 

MSS 

mss 

mass  of  suspension  system 

N 

number  of  steps  used  to  approxi¬ 
mate  inflation  periods 
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TABLE  V  (Cont'd.) 

Computer  Symbols  for  Subroutine  OPENING 


Mnemonic 

Variation 

Symbol 

Comment 

NINT 

number  of  calculations  to  be  made 
between  successive  prints  during 
coasting  stages;  if  NINT  <  0, 
continuous  output  is  suppressed 

NREEF 

integer  variable,  number  of  reefing 
lines  used 

PI 

TT 

3.14159... 

REEF 

array  which  contains  trajectory 
variables,  opening  shock,  and 
filling  time  at  end  of  each  reefed 
inflation  period 

RH0 

P 

air  density 

p 

RO 

V 

^R/tt 

initial  reefing  ratio  = 

o 

Rl 

Ri 

'tri  /rr 

final  reefing  ratio  =  — ~-Ii 

0 

T 

t 

time 

TCD 

tCD 

reefing  cutter  delay  time 

TDR 

CDR 

rime  of  disreef,  tDR  =  tRCA  +  tCD 

TF 

tff  or  tfR 

filling  time 

THETA 

6 

system  angle,  radians 

THETAO 

V 

9  initial,  at  entry  to  FILLTIM 

TN0T 

Co 

t  initial,  at  beginning  of  each 
inflation  stage 

TRAJANG 

e 

system  angle,  degrees 
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TABLE  V  (Coat’d.) 

Computer  Symbols  for  Subroutine  0PENING 


Mnemonic 

Variation 

Symbol 

Comment 

TRCA 

tRCA 

time  at  which  reefing  cutters  are 
armed 

V 

V 

velocity 

VI  -  V5 

terms  in  Eqn  (27) 

VOLUME 

V  or  VR 

volume  ,  V  or  VR,  for  call  to 

FXLLTIM  K 

VCiLUMG 

V 

volume  of  fully  inflated  parachute 

vx 

vx 

x  component  of  velocity 

vz 

vz 

z  component  of  velocity 

VO 

initial  velocity,  at  entry  to 
FILLTIM 

X 

X 

x  position 

xo 

.  ;  ■  ■:  ■ 

initial  x,  at  entry  to  FILLTIM 

z 

z 

z  position 

zo 

initial  z,  at  entry  to  FILLTIM 
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TABLE  VI 

Computer  Symbols  for  Subroutine  FILLTIM 


Mnemonic 

Variation 

Symbol 

Comment 

C 

c 

effective  porosity 

CAPT 

T 

dimensionless  time 

CAPTR 

tr 

dimensionless  time  for  reefed  in- 
flation  periods 

CO 

co 

effective  porosity  at  mean  sea 
level 

D 

d 

canopy  inlet  diameter 

DCAPT 

AT 

increment  of  T 

DCAPTR 

atr 

increment  of  TR 

DNlto 

Do 

nominal  diameter 

DP 

°P 

projected  diameter 

DTF 

filling  time  increment, 

1  VOLUME  \  „ 

- 1)  CfR 

DV 

Av 

velocity  increment 

HO 

ho 

initial  reefed  Dp/Do 

HI 

hl 

final  reefed  Dp/DQ 

I 

Dp  loop  index  for  evaluation  of 
continuity  equation 

J,  K 

Dp  loop  indices  for  evaluation  of 
Simpson1 s  rule  formula 

TABLE  VI  (Cont'd.) 

Computer  Symbols  fot  Subroutine  FILLTIM 


Mnemonic 

Variation 

Symbol 

Comment 

N 

number  of  steps  used  for  integra¬ 
tion  of  continuity  equation  by 
Simpson’s  rule 

PI 

IT  , 

3.14159... 

rh«5 

P 

air  density 

SUM 

approximation  to 

jj  v  [  (1+2.2CT-T)  j  dT 

TF 

tf £  0r  tfR 

filling  time 

THETA 

0 

system  angle,  radians 

THETAO 

9o 

initial  0,  at  entry  to  FILLTIM 

V 

v 

velocity 

V0L 

V 

volume  from  integration  of  con¬ 
tinuity  equation 

V&LD0T 

array  which  contains  integrand  of 
Eqn  (30) 

VOLUME 

V  or  VR 

volume  increase  for  the  particular 
inflation 

VO 

initial  velocity,  at  entry  to 
FILLTIM 

X 

X 

x  position 

xo 

initial  x,  at  entry  to  FILLTIM 

z 

z 

z  position 

zo 

initial  z,  at  entry  to  FILLTIM 

TABLE  VII 

Computet  Symbols  for  Subroutine  CALC 


Mnemonic 

Variation 

Symbol 

Comment 

ALT 

ho 

release  altitude 

CAPT 

T 

dimensionless  filling  time 

CDP 

% 

drag  coefficient  of  parachute 
based  on  projected  area 

CDS 

(CDS)p  +  CDS-t 

CDSL 

Vi 

drag  area  of  load 

D 

d 

inlet  diameter 

DC  APT 

AT 

increment  in  T 

DCAPTR 

ATr 

increment  in  TR 

.  J  '  •  • 

DD0T 

dpi 

dT 

dimensionless  time  derivative  of 
d 

DMA 

Ain 

a 

increment  of  m 

...  a 

DMI 

Am^ 

increment  of  ni^ 

DN0T 

Do 

nominal  diameter 

DP 

>p 

projected  diameter 

dpdi6t 

d(Dp)/dT 

dimensionless  time  derivative  of 
°P 

DPMAX 

°P 

rmax 

projected  diameter  of  fully 
inflated  parachute 

DTHETA 

A9 

increment  in  0 

DV 

Av 

increment  in  v 
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TABLE  VII  (Cont’d.) 
Computer  Symbols  for  Subroutine  CALC 


Mnemonic 

Variation 

Symbol 

Comment 

DX 

Ax 

increment  in  x 

DZ 

Az 

increment  in  z 

G 

g 

acceleration  of  gravity 

LSS 

V*  lr 

M 

mt  +  mss  +  mp 

MA 

ma 

apparent  mass 

Ml 

mi 

included  mass 

MX 

m^ 

+  mss  +  mP  +  raa  +  mi 

PI 

TT 

3.14159... 

RH0 

SQ 

P 

air  density 

term  used  in  Eqn  (46) 

SQ1 

term  used  in  Eqn  (46) 

TF 

Cff  or  CfR 

filling  time 

THETA 

e 

system  angle,  radians 

V 

V 

velocity 

X 

X 

x  position 

Z 

z 

z  position 

TABLE  VIII  U  ^: 

Computer  Symbols  for  Subroutine  M0TI0N 
(Three  Degrees  of  Freedom) 


Mnemotiiew 

Variation 

Symbol 

Comment 

A 

al 

acceleration  of  the  load 

ALPHA! 

load  angle  of  attack,  radians 

ALPHAl 

load  angle  of  attack,  degrees 

ALT 

ho 

release  altitude 

AMARK 

±  1 

ANG 

0 

previous  value  of 

system  angle 

AX 

V 

x- component  of  aj 

AZ 

al 

Z 

z-component  of  aj[ 

A1 

al 

*x 

a,  if  tn  >  TST0P 

x 

or  R2  >  ZST0P 

A2 

al 

z 

a^  if  t^  >  TST0P 

or  R2  >  2#T0P 

B 

dummy  array  established  for  use 
in  call  to  INTGRAT 

C0RR 

correction  for  linear  interpola¬ 
tion 

DQ 

dv 

3t 

acceleration  at  the  moment  of 
full  inflation 

DT 

.  At  ' 

time  increment  set 
PROGRAM 

by  MAIN 

DX 

At 

time  increment  set 

by  INTGRAT 

ETA 

array  containing  allowable  abso¬ 
lute  errors'  in  the  integration 

G 

g 

acceleration  of  gravity 

I 

D0  loop  index;  implied  D0  loop 
index  for  printing  array  VERTPAR 

ID 

if  ID  >  0  indicates  INTGRAT  has 
not  been  called  previously 
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TABLE  VIII  (Cont'd.) 

Computer  Symbols  for  Subroutine  M0TI0N 
(Three  Degrees  of  Freedom) 


Mnemonic 

Variation 


Symbol  Comment 


IVERT  1,  2,  or  3--  the  number  of  times 

the  system  has  been  vertical  or 
near  vertical 

j  D0  loop  index 

K  if  K  >  0  indicates  the  integra¬ 

tion  cannot  be  completed 


LI 

ll 

distance  from  parachute- load 
system  mass  center  to  load 

NINT 

the  number  of  calculations  made 
between  prints  if  the  time 
increment  is  small  enough;  if 
NINT  <  0  continuous  output  is 
suppressed 

NMARK 

1,  2,  3,  4  or  5- -NMARK  =1,  3, 
or  5  indicates  the  system  is 
vertical  or  near  vertical 

NUMB 

D0  loop  index  for  calculations 

without  print 

PCTERR 

E 

allowable  relative  error  in 

P 

integration 

PI 

TT 

3.14159. . . 

RX 

x  position  of  load 

RZ 

ri 

rl 

X 

z  position  of  load 

Ri 

tt  if  tx  >  TST0P  or  R2  >  ZST0P 

R2 

•  Z 

r  '  ;  used  to  determine  if  r,  > 
lz  lz 

ZST0P 

SYSANGL 

'  e 

system  angle,  degrees 

T 

t 

time 

TF 

t_ 

time  at  which  integrated  values 

F 

are  desired  from  INTGRAT 

133 


TABLE  VIII  (Cont'd.) 

Computer  Symbols  for  Subroutine  M0TI0N 
(Three  Degrees  of  Freedom), 


Mnemonic 

Variation 

Symbol 

Comment 

THETA 

9 

system  angle ,  radians 

TRAJANG 

CD 

1 

trajectory  angle  of  load 

TST0P 

time  at  which  simulation  termi¬ 
nates;  initially  number  of 
seconds  after  full  inflation 

T1 

H 

time 

V 

v>\ 

velocity  of  load  or  mass  center 

VERTPAR 

array  containing  information  at 
the  first  three  instances  when 
the  system  is  vertical  or  near 
vertical 

VX 

X 

x  -  component  of  load  velocity 

VZ 

z 

z  -  component  of  load  velocity 

VO 

vl 

velocity  of  the  load 

VI 

vl 

A 

v  if  t,  >  TSTJDP  or  R2  >  ZST0P 

"°x  L 

V2 

vt  if  t1  >  TST0P  or  R2  >  ZSTtfP 

W 

array  established  for  call  to 
INTGRAT 

X 

X 

position  of  mass  center  at  entry 
to  M0TI0N 

XI 

array  established  for  call  to 
INTGRAT 

X2 

array  established  for  call  to 
INTGRAT 

X3  array  established  for  call  to 

XNTGRAT 

Y  array  of  U,  W,  Q,  x,  and  z 
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TABLE  VIII  (Cont'd.) 

Computer  Symbolf  for  Subroutine  M0TI0N 
(Three  Degrees  of  Freedom) 


Mnemonic  Svmbol 

Variation  bymD<u 

yd«*t 
Z  . 

ZST0P 


Comment 

array  of  U,  W,  Q,  9,  x,  and  z 

array  established  for  call  to 
INTGRAT 

altitude  mass  at  which  s imula- 
tion  terminates 
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TABLE  IX  , 

Computer  Symbols  for  Subroutine  INTGRAT 


Mnemonic 

Variation 

Symbol 

Comment 

DT 

At 

time  increment 

DX 

At 

time  increment;  represents  the 
last  successful  time  increment 
used  by  INTGRAT  on  previous  call 

ERR1 

|  Y3  '  Y1  1  j  =  1»  NN 

J  (  j  ) 

ERR2 

max  jv  Ep  '  Y3j|  j  j  =  1,NN 

ETA 

array  containing  sbsooute  errors 
allowed  in  integration 

I 

D0  loop  index 

ID 

if  ID  *  0,  INTGRAT  has  been 
called  previously 

IMD0NE 

IMD0NE  2>  0  indicates  integration 
has  been  completed 

ISIGNAL 

ISIGNAL  >  0  indicates  solution 
cannot  be  accomplished 

J 

D0  loop  index 

K 

D0  loop  index 

L 

parameter  of  calls  to  F0RMULA; 

L  >  0  indicates  time  increment 
must  be  halved 

M 

numbet  of  successful  integrations 
without  halving  time  increment 

MM 

number  of  times  time  increment  is 
halved  without  successful 
integration 

NN 

number  of  equations  being  solved 

PCTERR 

T 

ep 

relative  error  allowed  in 
integration 

time  at  entry  to  INTGRAT 

TF 

fcF 

time  to  which  integration  is 
des ired 
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TABLE  IX  (Cont'd.) 

Computer  Symbols  for  Subroutine  INTGRAT 


Mnemonic 

Variation 


Symbol 


TRYl  Yr 

J 


TRY2  Y9 

'■ 

TRY3  Yo 

T1  '^V-; 

W 

YD0T. 

Z 


Comment 


array  containing  values  of  Y 
after  integration  from  t^  to 

1 1  +  A t  in  one  s  tep 

array  containing  values  of  Y 
after  integration  from  t,  to 
tx  +  k  At  1  . 

array  containing  values  of  Y 
after  integration  from  t1  +  %  At 
to  t1  +  At 

time  ■  . 

array  used  in  FORMULA 

array  containing  variable  values 
for  which  solution  is  required 

array  containing  derivatives  of 
Y 

array  used  in  FORMULA 


TABLE  X 

Computer  Symbols  for  Subroutine  F0RMULA 


Mnemonic 

Variation 


Symbol 


Comment 


A  array  containing  constants  for 

the  Runge-Kutta  formula 

C  1/3  A(K  +  1) 

H  At  time  increment 

ISIGNAL  ISIGNAL  >  0  indicates  the  call 

to  EM$TI($N  could  not  be  suc¬ 
cessfully  completed 

J  D0  loop  index 

K  D0  loop  index 

L  D0  loop  index 

NN  number  of  equations  being  solved 

W  array  containing  values  of  Y 

for  calls  to  EMOTION 

Y  array,  see  INTGRAT 

YD0T  array,  see  INTGRAT 

YI  final  values  of  Y  at  t  =  t  +  H 

Z  array  containing  the  values  of 

YD0T  returned  by  calls  to 

EM0TI0N 
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,  table;  xi 

Computer  Symbols  for  Subroutine  EM0TI0N 
(Three  Degrees  of  Freedom) 


Mnemonic 

Variation 

symbol 

Comment 

A 

ml  +  ma 

AER0M 

ALPHA 

ma 

+  mss:  +  mp  +  mi  +  ma> 
aerodynamic  moment  of  parachute 

tan  (^) 

ALPHAL 

angle  of  attack  of  load 

ALPHAF 

V 

angle  of  attack  of  parachute 

ALT 

ho 

release  altitude 

B 

H  +  mss  +  mp>  g 

K  +  mSS  +  mp  +  rai  +  ma) 

C 

■£  tt  D  2 

8  o 

CDN0X 

<| «  ■  % 

CDSL 

CDSL 

drag  area  of  load 

CM 

% 

aerodynamic  moment  coefficient 

CN 

\ 

aerodynamic  normal  force 
coefficient 

CT 

% 

aerodynamic  tangent  force  co¬ 
efficient 

D 

h 

drag  of  load 

DN0T 

Do 

nominal  diameter 

E 

Vp  cds. 

G 

S 

acceleration  of  gravity 

ISXGNAL 

if  :I$X<5NAL)  >  O.call  to  Cf&EFFTS 
showed  |otp |  too  large 
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TABLE  XI  (Cont'd.) 

Computer  Symbols  for  Subroutine  EMj6TI0N 
(Three  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

IST0P 

1  or  2;  parameter  indicating 
whether  the  call  to  EM0TI0N  comes 
from  FORMULA  or  INTGRAT 

IXX 

Ixx 

moment  of  inertia  about  X-axis 

IXZ 

Ixz 

product  of  inertia 

IYY 

IYY 

moment  of  inertia  about  Y-axis 

IZZ 

*zz 

moment  of  inertia  about  Z-axis 

LI 

h 

distance  from  parachute- load 
system  mass  center  to  load 

L2 

l2 

distance  from  parachute- load 
system  mass  center  to  parachute 
center  of  volume 

L3 

^3 

distance  from  parachute- load 
system  mass  center  to  moment 
center 

M 

m,  +  ni  +  in  +  m.  +  m 
l  ss  p  l  a 

MA 

m.  +  m 
l  a 

MI 

m. 

included  mass 

ML 

V 

mass  of  load 

MP 

mp 

mass  of  parachute 

MSS 

m 

ss 

mass  of  suspension  system 

N 

fn 

aerodynamic  normal  force 

PI 

TT 

3.14159... 

RH0 

P 

air  density 

TT 

T  .■ 

aerodynamic  tangent  force 

VL2  ■ 

■.j'}  ■  CiA  '• 
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TABLE  XI  (Cont'd.) 

Computer  Symbols  for  Subroutine  EM0TI0N 
(Three  Degrees  of  Freedom) 


Mnemonic 

Variation 


Symbol 


Comment 


VP2 


2  2 

V2  IT  +  VT 

Y  array  containing  U?  W,  Q,  0,  xs  z 

0  4  *  0  0  0 

YD0T  array  containing  Ug  Ws  Q,  0,  x,  z 
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Computer  Symbols 

TABLE  XII 

for  Subroutine  DYNAMIC 

Mnemonic  Symbol 

Variation  3 

Comment 

DN0T 

Do 

nominal  diameter 

IA 

apparent  moment  of  inertia  about 

X  or  Y-axis 

IAZ 

\ 

apparent  moment  of  inertia  about 
Z-axis 

IAZO 

I  at  mean  sea  level 

aZ 

IXX 

rxx 

moment  of  inertia  about  X-axis 

IXZ 

Ixz 

product  of  inertia 

IY 

XY 

moment  of  inertia  about  Y-axis 
due  to  physical  masses,  Eqn  (88) 

IYY 

IYY 

moment  of  inertia  about  Y-axis 

IZ 

XZ 

moment  of  inertia  about  Z-axis 
due  to  physical  masses 

IZZ 

IZZ 

moment  of  inertia  about  Z-axis 

LI 

ll 

distance  from  parachute- load 
system  mass  center  to  load 

L2 

l2 

distance  from  parachute- load 
system  mass  center  to  parachute 
center  of  volume 

L3 

ly 

distance  from  parachute- load 
system  mass  center  to  moment 
center 

MBR 

mBr 

mass  of  load  bridle 

MI 

m. 

included  mass 

MLS 

\ 

mass  of  suspension  lines 

MP 

mp 

mass  of  parachute 

MR 

“R 

mass  of  risers 
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TABLE  XII  (Cont'd.) 

Computer  Symbols  for  Subroutine  DYNAMIC 


Mnemonic 

Variation 

Symbol 

Comment 

MRX 

mE 

mass  of  riser  extension 

Qi 

s  /  D 
c  o 

ratio  of  reference  distance  from 
canopy  skirt  to  parachute  center 
of  Volume  in  fully  inflated 
configuration  to  DQ 

D  /D 

p  o 

^max 

projected  diameter  ratio 

RH0 

P 

air  density 

VOLUME 

V 

volume  of  fully  inflated  parachute 

X 

•  "a  • 

distance  of  parachute- load  system 
mass  center  from  canopy  skirt 

XDEN0M 

mp  +  ®L  +  mR  +  mE  +  mBr  +  ml 
r  s 

XNUM 

"•l  *  'sl  +  V  s2  +  mE'  s3 
s 

+  mBr  * s4  +  -  s5  -  mp  ‘sc 

XI 

S1 

reference  distance  from  canopy 
skirt  to  suspension  line  center 
of  mass  in  fully  inflated  configu¬ 
ration 

X2 

S2 

reference  distance  from  canopy 
skirt  to  riser  center  of  mass  in 
fully  inflated  configuration 

X3 

s3 

reference  distance  from  canopy 
skirt  to  riser  extension  center 
of  mass  im  fully  inflated  configu¬ 
ration 

X4 

s4 

reference  distance  from  canopy 
skirt  to  load  bridle  center  of 
mass  in  fully  inflated  configu¬ 
ration 

X5 

s5 

reference  distance  from  canopy 
skirt  to  load  center  of  mass  in 
fully  inflated  configuration 
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TABLE  XIII 

Computer  Symbols  for  Subroutine  CfDEFFTS 
(Three  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

A 

Kl 

ALPHAP 

“p 

parachute  angle  of  attack, 
radians 

ALPHAPD 

°p 

pafc&chute  angle  of  attack, 
degrees 

CM 

C«o 

aerodynamic  moment  coefficient 

CN 

X 

aerodynamic  normal  force 
coefficient 

CT 

% 

aerodynamic  tangent  force 
coefficient 

IPRINT 

1  or  2;  indicates  whether  or  not 
to  print  message  concerning 
parachute  angle  of  attack 

ISIGNAL 

if  ISIGNAL  >  1,  indicates 

K  l  *  85° 
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TABLE  XIV 

Computer  Symbols  for  Subroutine  M(?Sth6n 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

A 

A 

3  x  3  array  containing  direction 
cosines 

ALT 

ho 

release  altitude 

AMARK 

see  MtfTldN  (3D0F) 

ANG 

previous  value  of  the  system 
angle 

AT 

al 

total  acceleration  of  load 

AX 

al 

X 

x-component  of  load  acceleration 

AY 

at 

y- component  of  load  acceleration 

y 

AZ 

z-component  of  load  acceleration 

Al 

% 

a  if  t,  >  TST0P  or  R3  >  ZST0P 

A2 

\ 

a.  if  t,  >  TST^P  or  R3  >  ZSTltfP 

ly 

A3 

V 

a  if  t,  >  TST(6P  or  R3  >  ZSTj&P 

-lz  1 

C^RR 

see  M0TI0N  (3D0F) 

Cl 

U  +  Q 

C2 

"b.  •.  : 

V  -  Ri.2 

C3 

U  +  PW  -  RV  +  Q*j_  *  PR*! 

C4 

V  +  RU  -  QW  -  P*2  +  QR*! 

C5 

W  +  QV  -  PU  -  (P2  +  Q2)i1 

DQ 

dv 

It 

see  M0TI0N  (3D0F) 
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TABLE  XIV  (Cont'd.) 

Computer  Symbols  for  Subroutine  M0TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

DT 

At 

see  M0TI0N  (3D0F) 

DX 

At 

see  M0TI0N  (3D0F) 

ETA 

see  M0TI0N  (3D0F) 

G 

g 

acceleration  of  gravity- 

I 

see  M0TI0N  (3 DOF) 

ID 

see  M0TI0N  (3D0F) 

IVERT 

see  M0TI0N  (3D0F) 

J 

see  M0TI0N  (3D0F) 

K 

see  M0TI0N  (3D0F) 

LI 

li 

distance  from  parachute- load 
system  mass  center  to  load 

NINT 

see  M0TI0N  (3D0F) 

NMARK 

see  M0TI0N  (3D0F) 

NUMB 

see  M0TI0N  (3D0F) 

PCTERR 

ep 

see  M0TI0N  (3D0F) 

PI 

TT 

3.14159... 

RX 

X 

x-component  of  load  position 

RY 

\ 

y-component  of  load  position 

RZ 

rv 

z- component  of  load  position 

R1 

^x 

r  if  t,  >  TST0P  or  R3  >  ZST0P 

R2 

S 

r  if  tn  >  TST0P  or  R3  >  ZST0P 

T 

R3 

r.  ;  used  to  determine  if  r£  > 

**  2  Z 

ZST0P 

S'YSANGL 

system  angle 
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TABLE  XIV  (Cont'd.) 

Computer  Symbols  for  Subroutine  M0TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

T 

t 

time 

TF 

tF 

see  M0TI0N  (3D0F) 

THETA 

9 

system  angle  at  entry  to  M0TI0N 

TRAJANG 

trajectory  angle  of  load 

TST0P 

see  M0TI0N  (3D0F) 

T1 

t 

time 

VERTPAR 

see  M0TI0N  (3D0F) 

VX 

x 

x-component  of  velocity 

VY 

y-component  of  velocity 

VZ 

% 

z-oomponent  of  velocity 

VO 

velocity  of  load 

VI 

VL 

X 

v.  if  t,  >  TST0P  or  R3  >  ZST0P 

V2 

\ 

v  if  tn  >  TST0P  or  R3  >  ZST0P 

V3 

V. 

v.  if  t,  >  TST0P  or  R3  >  ZST0P 
"z 

W 

see  M0TI0N  (3D0F) 

X 

see  M0TI0N  (3D0F) 

XI 

see  M0TI0N  (3D0F) 

X2 

see  M0TI0N  (3D0F) 

X3 

see  M0TI0N  (3D0F) 

Y 

array  containing  U,  V,  W,  P,  Q, 

R,  9,  «P,  ♦»  x,  y,  z 

YD0T 

array  containing  U,  V,  W,  P,  Q, 

R5,  9j  »,  ti  x,  yi  z 

Z  see  M0TI0N  (3D0F) 
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TABLE  XIV  (Cont'd.) 

Computer  Symbols  for  Subroutine  m6T!0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 


Symbol 


Comment 


ZST0P 


see  MJ&TI0N  (3D0F) 
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TABLE  XV 

Computer  Symbols  for  Subroutine  EMJ&TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

A 

v  A  1  ■ 

3x3  array  containing  direction 
cosines 

AER0MX 

M 

X- component  of  aerodynamic  moment 

AER0MY 

M 

Y- component  of  aerodynamic  moment 

ALPHAL 

H 

angle  of  attack  of  load  in 

XZ- plane 

ALPHAP 

°p 

angle  of  attack  of  load  in 

XZ- plane 

ALT 

ho 

release  altitude 

B 

<m*  +  mss  +  mp>  8 

H  +  mss  +  mP  +  mi  +  ma> 

BETAL 

V  : 

angle  of  attack  of  load  in 

YZ- plane 

BETA? 

angle  of  attack  of  parachute  in 
YZ- plane 

C 

1  71  Do2 

CDN0T 

<^Do2]Do 

CDSL 

CDS-l 

drag  area  of  load 

CMX 

C% 

coefficient  of  aerodynamic  moment 
about  X  axis 

CMY 

C“Vd 

coefficient  of  aerodynamic  moment 
about  Y  axis 

CT 

°To 

aerodynamic  tangent  force 
!  coefficient 

CX 

coefficient  of  aerodynamic 
normal  force  in  X-direction 

149 


TABLE  XV  (Cont'd.) 

Computer  Symbols  for  Subroutine  EM0TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

CY 

CN 

V 

coefficient  of  aerodynamic 
normal  force  in  Y- direct ion 

D 

drag  of  load 

DELTAL 

angle  between  load  velocity  and 

YZ- plane 

dn«St 

Do 

nominal  diameter 

E 

%  p  cDsx 

FX 

fnx 

normal  force  in  X- direction 

FY 

fny 

normal  force  in  Y-direction 

G 

g 

acceleration  of  gravity 

GAMMAL 

V, 

angle  between  load  velocity  and 
XZ-plane 

HI 

^ZZ  '  IYY^XXX 

H2 

^XX  "■  IZZ^IYY 

H3 

(XYY  -  XXX^XZZ 

H4 

IXZ^IXX 

H5 

IXZ^IYY 

H6 

IXZ^IZZ 

I  SIGNAL 

see  EM0TI0N  (3D0F) 

IST0P 

see  EM0TI,(te  (3DGF) 

IXX 

Ixx 

moment  of  inertia  about  X-axis 

IXZ 

Ixz 

product  of  inertia 

IYY 

XYY 

moment  of  inertia  about  Y-axis 
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TABLE  XV  (Coat'd.) 

Computer  Symbols  for  Subroutine  EM0TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

IZZ 

Izz 

moment  of  inertia  about  Z-axis 

LI 

h 

distance  from  parachute- load 
system  mass  center  to  load 

L2 

distance  from  parachute-load 
system  mass  center  to  parachute 
center  of  volume 

L3 

^3 

distance  from  parachute-load 
system  mass  center  to  moment 
center 

M 

+  mss  +  mp  +  mt  +  ma 

MA 

mi  +  ma 

MI 

m. 

included  mass 

ML 

V 

mass  of  load 

MP 

“P 

mass  of  parachute 

MSS 

mss 

mass  of  suspension  system 

PI 

TT 

3.14159.. . 

PpLANG 

9p 

polar  angle  of  parachute  velocity 

R 

mi  +  ma 

m„  +  m  +  m  ■  +  m.  +  in 
l  ss  p  l  a 

RH0 

P 

air  density 

TT 

T 

aerodynamic  tangent  force 

UL 

U  +  QX 

1 

UP 

U  +  Q  i 

2 

VL 

V  -  P  l 

1 

151 


TABLE  XV  (Cont'd.) 

Computer  Symbols  for  Subroutine  EM0TI0N 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 


Symbol 


Comment 


VL2 

CM 

•V1 

> 

VP 

>  V-Pi 

VP2 

v  2 

P 

Y 

array  containing  U,  V, 
R,  e,  «p,  if,  x,  y,_z 

W,  P,  Q, 

YD0T 

array  containing  U.  V, 

*  •  i  •  •  •  T  •  * 

W,  P,  Q, 

R,  9,  -i,  x,  y,  z 
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TABLE  XVI 

Computer  Symbols  for  Subroutine  C0EFFTS 
(Six  Degrees  of  Freedom) 


Mnemonic 

Variation 

Symbol 

Comment 

A 

OL  I 

1  Pi 

ALPHAP 

°p 

angle  of  attack  of  parachute 
XZ-plane,  radians 

in 

ALPHA PD 

°p 

angle  of  attack  of  parachute 
XZ-plane 5  radians 

1  0  1 

in 

D 

BETAP 

pp 

1  PI 

angle  of  attack  of  parachute 
YZ-plane,  radians 

in 

BETAPD 

h 

angle  of  attack  of  parachute 
YZ-plane,  degrees 

in 

CMX 

So 

coefficient  of  aerodynamic 
moment  about  X-axis 

CMY 

So 

coefficient  of  aerodynamic 
moment  about  Y-axis 

CT 

cv 

aerodynamic  tangent  force 
coefficient 

cx 

S0 

coefficient  of  aerodynamic 
normal  force  in  X- direction 

CY 

So 

coefficient  of  aerodynamic 
normal  force  in  Y-direction 

p 

Kl 

P0LANG 

9P 

polar  angle  of  parachute 
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TABLE  XVII 

Computer  Symbols  for  Subroutine  C0SINES 


Mnemonic 

Variation 


Symbol 


Comment 


A 

A 

3  x  3  array  containing  direction 
cosines 

Y  (7) 

e 

Euler  Angle 

Y(8) 

Euler  Angle 

Y(9) 

,* 

Euler  Angle 
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TABLE  XVIII 


Computer  Symbols  for  Subroutine  DENSITY 


Mnemonic 

Variation 

Symbol 

Comment 

H 

h 

altitude 

RH0 

P 

air  density 
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TABLE  XTX:  r. 

Computer  Symbols  for  Subroutine  TRAJEQN 


Mnemonic 

Variation 

Symbol 

Comment 

ALT 

ho 

release  altitude 

CDS 

CDS 

drag  area 

DT 

At 

time  increment 

DTHETA 

a@ 

system  angle  increment 

DV 

Av 

velocity  increment 

DX 

Ax 

x  increment 

DZ 

Az 

z  increment 

G 

g 

acceleration  of  gravity 

M 

m 

mass 

RH0 

P 

air  density 

T 

t 

time 

THETA 

e 

system  angle 

V 

V 

velocity 

X 

X 

x  position 

Z 

z 

z  position 
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VII.  COMPUTER  PROGRAM  SOURCE  LIST 

The  computer  program  is  arranged  in  the  form  which 
will  probably  be  the  most  useful  at  the  present  time,  i.e., 
including  the  complete  solution  allowing  three  degrees  of 
freedom,  with  aerodynamic  coefficients  for  a  solid  flat 
circular  parachute,  and  listed  in  Fig  29.  In  addition,  the 
solution  allowing  six  degrees  of  freedom  for  the  free 
descent  phase  is  listed  in  Fig  30.  The  only  difference 
between  the  two  solutions  lies  in  the  arrangement  of  the 
subroutines  following  subroutine  DYNAMIC.  The  appropriate 
data  cards  are  inserted  immediately  after  subroutine  C0EFFTS. 
All  subroutine  calls  are  indicated  by  arrows  in  the  left 
margins  of  Figs  29  and  30  for  aid  when  referring  to  these 
source  lists. 
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PROGRAM  T R A  J$ I M  ( I  NPu T  *  OJTPIJ  T ) 

THIS  IS  THE  MAIN  PROGRAM 
DIMENSION  ETa ( 12) « SPACE < 1 00 0 ) 

REAL  IXX* IYYvlZZ* IXZ* IAZ0*IZ*LSS*L1 *L2*L3*MA*MB»*ML*MLSVmP*MR*MRx* 

1M5S*MST 

COMMON  /CONST/  ALT* P I  * G* CDP* DNOT* COSL* L5S* ML*  MP* MSS* MST* NI NT 

common  /vahubl/  rho*t  *v* theta* x*z»alphal*alphap*l1 

common  /DyNAM/  D-YONOf  ,  xl  *  XZ ,  x3*  X4*  X5  *  MBR  *  OyML * MLS  ♦  DyMP  ,  MR  ,  MRx  *  I AZ0 
1  * IZ* 01 *Q2* VOLUME » XNUMfXQENQM 
PI =3*141 592653589793 
G-32 *  1  7 

read  io»nsim 

DO  11  J=1 *  N$  I M 
READ  9»Cl*C2*C3fC4#CS 
PRINT  UiClfC2*C3*C4,Cb 

READ  6* ALT* V0*m$T*MP*MLS*MR*MRX*M8R*ML*X1 * X2 * X3 * X4 ♦ X5 *  I Z *  1 AZG * 
1l)N0T,lSS*CDP*CL)SL*O1  *02*  VOLUME,  N*NnN*  DTI*  DT2*DT3*NI  NT 
0 YQNO  T  =  0N0t 
dyml=ml 

DYmP=MP 

XNuMsMuS^Xl+MRttx2*MRX»X3+MBR*AA+ML*XS-MP»ai<H)N0T 
X  0  E  N  0  M  =  M  P  ♦  M  L  S  t  M  R  +  M  R  X  +  M  8  R  +  ML 
MSS=MlS+MR+MRX+MHR 

C  ALL  DYNAM  J C  (  0  *  0023  fti  *  Al  *  A2  *  A3  ♦  A4  *  AS ♦  A6*A7  ,  AH) 

A9=0,375*A6 
CALL  DENSITY (RHD* ALT) 

CaLL  DYNAMIC (RHO* 3 l *62,33 *B4,BS»B6,b7*BB) 

B  9  =  0 • 375*68 

PRINT  A, ALT* VO* MST* ML, MO,  MLs , MR  * Mrx ♦ MBR *  A 0 , B0 , AL T ♦ A9 ♦ B 9  *  ALT ♦ X 1 * 

1 X?  *  X3  *  X4, X5 , A 4  * .34, AL  T  *  AS*  B5*  A l  T  *  A 6  *  66*  ALT  *  A 7  *  37  *  ALT*  ONQT  *  LSS*  A  1 *  B 1 
2*AuT,A2*B2*ALT»A3,63*ALT*Q1 , Q2 ♦ VOLUME , CDP 
PRINT  8.1  *CUSL*N 
NN=?*N 

READ  7, (ETA(I) , I s I  *  NN) ,?CtERr 
CALL  EXTRACT ( I  SNATCH , I E XTRAC , VO,DT 1 *TRCA) 

I  F  ( I  SNATCH)  4*4,5 

4  CALL  SNATCH<THCA*DT2) 

5  CALL  OPEN  I NG (DQ , T RCA  *NNN*  SPACE  *  VOLUME , I  EX TRAC  *D  T3 ) 

CftLL  MOTION (D0»PCTERR*ETA*DT3) 

11  CONTINUE 
STOP 

6  FORMAT (2F10.0/7F1 0.0 /7F1C.0/7F 10.0/11 , I9,3Fl 0,0* 15) 

7  FORMAT  <6F 10. O/bF 10* 0/F 10.0) 

8  FORMAT  (3/*5Xf*r«AJE'CT0RY  SIMULATION— T  =  0*  Z=0  IS  RELEASE  PQINT**3/* 
15X**RELEAsE  CONDITIONS**/* 1  Ox ** ALTITUDE** *Fl 0.0,*  F T* * / * l OX  * *V£LOC 
21 T Y=**F 1 0.2**  FT/SEC*,///*5X**mA$SE$— SLUGS**/10X,*TOTaL  SYSTEM*  * 
3*"10.3,/,10X*#LQAD=  **Fl0.3*/* 10X,*PARACHUtE=  *  * F 1 0 , 3  * / *  1  OX  * *$1JSP . 
4  lINE$=  *,F10.-3,/,10x**«ISERsa  *  *  F  1  0 . 3 ,  /  *  1  OX  *  *PI  SER  EXTENSIONS*  *., 

'  5F  1  0  •  3  *  /  *  1 0  X  *  *L0  A  D  BRIDLE*  *  *  F  I  0 . 3*  /  *  1  OX  *  ^INCLUDED*  *  *F  1 0 . 3  *  *  ( SEA  L 
6EVEL)**F10.3,*(*,F7.C**  FT)**/*10X**APPAReNT=  *  *  FI  0 .3  *  *  (  SEA  LEVEL 
7)*,F10.3**(*tF7#0,*  FT)**///*5X,*REFERENCE  DISTANCES  FROM  SKIRT  — 
8  FT**/* I0X**X1=  **F10.3*/* 10X**X2*  *  *  fl 0 • 3  * / *  1 0  X  *  *  X  3  =  **F10.3*/» 
910Xt*X4=  *  *  F’l  0 . 3/1  OX  *  *X5  =  *  ,  F I  0 . 3// / *  5X  *  *MQM , /PROD  .  INERTIA— SLUG 
1FT**3H**2*/»10X,*IXX=  *,F15.3**(SEA  LEVEL) *,F15.3,* (**F7»Q**  Fl)* 
2, /* 10X**I YY»  **F15.3** (SEA  LEVEL) ■** F 1 5. 3* * (*♦ F7 • 0* *  FT) *«/♦ 10X* 

3  *  I ZZ  *  **Fl5.3** (SEA  LEVEL >*• F 1 5*3 **(*♦ F7 . 0  *  *  FT ) *  * / *  1  OX  *  *  I XZ=  ** 
4F16,3**(s£a  LEVEL) **F 15,3** (**F7#0,*  F T )*,///, 5X , *DlMENS I ONS—  FT 
5*  * / » 1  OX  *  *DN0T=  ** F10.3*/* 1 OX,*SUSP,  SYSTEM*  *, F 1 0 . 3* / *  1  OX * *L 1 =  **F 
610.3**(SEA  LEVEL) **Fl0.3** (*,F7.0**  FT ) *  * / *  1 0 X  * *L2  =  * ♦ Fl 0 . 3  *  *  ( SE A 
7  LEVEL ) *  *F 1 0 . 3*  * ( *  *F  7 , o  *  *  Ft ) * » / *  1  Ox  * *L3  =  *  * Fl 0 , 3 , *  ( $EA  LEvEL)**F 
810.3** (*,F7.0»*  FT)**///*5X,*YC/0N0T=  ** FlO . 3* /* 5X,*DP/DN0T=  **Fl 

90 . 3 * / * S X ♦ *V DLUME  =  #*F10.3*6H  FT**3 * / » 5X » *PaRACH JTE  CDP*  **F10.3) 

81  FORMAT <5X,*LOAO  DRAG  AREA*  *,F10.3*bH  FT**2*/*5X**DEGR£ES  OF  FREE 
lDOMr  4,110*5/) 
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9  FORMAT ( 5A1 0 ) 

10  FORMAT (13) 

12  FORMAT (1H1*/,5X*#PARACHUTE-LoA0  SYSTEM ( DEPLOYMENT ) — **5A10) 
END 


SUBROUTINE  EXTRACT ( ISNATCH, IgXTRAC*VO.DT*TRCA) 

COMMON  /CONST/  ALT.Pl  *G*CDP*DNOT*CDSL*LS$*ML;*MP*MSS*MST*NINT 
COMMON  /VARIABL/  RhO  *  T  *  V  t  THETA  *  X  *  Z  * UNUSED  *UNUSED2 • UNUSED3 
REAL  LENGTHtLSPlLOT*LSS»LSTATIC»MSTfMT.LRXBR 
ICOUNT-O 

READ  15* 1ST AT IC* IEXTRAC 
IF'(ISTATIC)  1*8*8 

1  READ  16*L5TATIC*CDSBAG,CD$P,DPIL0T.L$P1L0T,T0*LRXBR 

distanc»lstatic 

PRINT  22.LSTATIC.C0SBA6 

IFKDPILOT.GT .0.0)  PRINT  23  *  CDSP  *  DPI LOT  * LSPlLOT • TD 

IFKNINT.GT.O)  PRINT  26 

T*X«Z*0.0 

THETA*0.5«PI 

V*V° 

COST*COSl*CDSBAG 

MTwMST 

-►2  CALL  TRA JEQN ( T*V*THETA*X*Z*RmO* COST  *MT  * OT *0* ALT  *D V ) 

VX*V*SIN (THETA) 
trajang*theta*ibo./pi 

VZ*V*COS (THETA) 

I COUNT* I COUNT* 1 

altmz*alt*z 

iFi(ICOuNT.EQ.NlNT)  PRINT  19.T* ALTMZ.TRAUANq, TRAUAN6*X»ZtV*VXfVZ 
I FI I COUNT .EQ.NINT)  IC0UNT*0 

IFi(SORT((v0«T*X)#(V0»T-X)*Z#Z).LT.DISTANC)  GO  TO  2 

IFKDISTANC.GT.LSTATIC)  GO  TO  3 

T1*T 

TRA Jl*TRA JANG 

xi*x 

Zl*Z 

Vl*V 

DISTANC*LSTATIC*LSS*0.5*DN0T*LRXBR 

IFKDPILOT.GT. 0«0>  OI$TANC*LSTATIC*LSPILOT*0*5*OPILOT 

GO  TO  2 

3  IFIDPILOT)  7*7*4 

4  ISNATCH*-! 

CDSf*CD$L*COSBAG*CDSP 

5  IFf(T-TO)  6.14*14 

— *6  C*LL  TRAJ£QN(T*V*THETA*X*Z*RHO*CDST*MT*OT*G*ALT*DV) 
tRAJANG*THETA*l80./PI 
VX*V*SIN(TH£TA) 

VZ*V*C0S( THETA) 

I  COUNT* I  COUNT* 1 
ALTMZ«ALT«Z 

IFKIC0UNT.EQ.NINT)  PRINT  l9*T* ALTMZ*TRAJAN6*TRaJANG*X*Z* V* VX.VZ 
IFKICOUNr.EQ.NlNT)  ICOUNT-0 
GO  TO  5 

7  I  SNATCH*  ! 

TRCAaT 

PRINT  20. T1*TRAJ1*X1* Zl* VI* T,TRA JANG* X*Z*V 
RETURN 

8  IFKIEXTRAC)  9*9,13 

9  READ  17.LENGTH,CDSBAG,C0SEX.TD 
PRINT  24* LENGTH, C0S8 AG. CDSEX.TD 
IFKNINT.GT.O)  PRINT  26 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
(Continued) 
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ISNATCHs-1 

10  T*X*Z*0 •  0 
THETA*0*5*PI 
TRA JANG*90  « 

C0ST*CDS£X 

V«VO 

11  0V*-RH0*CDST*V*V*DT/(2.*MST) 

OX*V*DT 

V*V*D V 
X*X^DX 
T  *T*DT 

IC0UNT»IC0UNT*1 

ALTMZsALT-Z 

IFKICOUNT.EQ.NInT)  PRINT  19*T*ALTMZ*TRAJANG,TRAJANG*X*Z*V*V 
IF!(IC0UNT.EQ*NINT)  ICOUNT*0 
IF-(VO*T-X-LENGTH)  11*12*12 

12  C0ST*CDSL*CDSBA6*CDSEX 
MTsMST 

T1*T 
*1*X 
Vl*V 
GO  TO  5 

13  READ  18*R*LENGTH*TD 
H*(4.*LSS*R*2.*R»DN0T)/(4**L5S*P1#R*QN0T) 

htdnot*h*onot 

PRINT  25. LENGTH, R,HTONOT*TD 
IF'(NINT.GT.O)  PRINT  26 
COSEX*CDP*PI*H*H*DNOT*DNOT/4, 

CDSBAGaO.O 
ISNATCHF1 
GO  TO  10 

14  IF'(ISTATIC.LT*0)  PRINT  20  *Tl  f TRAJl *  Xl * Zl * VI  *  T  *  TRA  JANG*  X*Z*V 
IFlUSTATIC.GE.O)  PRINT  21 *Tl»Xl *Vl *T*TRAJANG*X*Z*V 

I  Fit  I  EXT  R  AC  •  GT  •  0 )  TRCA»0.0 
RETURN 

15  FORMAT (212 ) 

16  FORMAT (7P10.0) 

17  FORMAT (8F10.0) 

18  FORMAT (3FlQ,0) 

19  FORMAT  < 1X*F8*2*4F11»2* 11X.3F11 * 2» 1 1X.FI1 ,2) 

20  FORMAT ( // t60Xt*Tl  ME (SEC)  ANGLE (0E6)  X(FT)  Z(FT>  VELOCITY (FT 

1/SEC)*./*20X.*STATIC  LINE  STRETCH^.lGX.SFll.E/ZOX.opARACHUTE/PlLOT 
2  CHUTE?  DEPLOYMENT*.  3X*5Fil  1,2) 

21  FORMAT (//*60X**TI ME (SEC)  ANGLE(DEG)  X(FT)  Z(FT)  VELOClTYtFT 
1/SEC)  **/,20X**LOAQ  OUT  OF  AIrCRAFT*.15x*F11.2*HX*F11.2*UX*F11,2/ 
220X,*PILOT  CHUTE/EXTRACTION  chute  RELEASE  QR*»/*20X**MA1N  PARACHUT 
3E  0ISREEF**13X*5F11,2) 

22  FORMAT (////*20X**STATIC  LINE*  **FI0.3**  FT**/.20X,*PARACHUTE  PACK 
1 DRAG  AREA*  **F10,3* lX*5HFT**2) 

23  FORMAT (20X,*PIL0T  CHUTE*. /,25X,*DRAG  AREAw**Flo.3* 1X.5HFT**2*/ *25X 
1**0IAMETER*  **F10,3**  FT**/*2SX.*$USP.  LINES*  **F10.3»*  FT*»/*20X* 
2*TIM£  OF  PILOT  CHUTE  RELEASE*  **FlO,2**  SEc*i'///> 

24  F0RMAT(////*20X**RELEASE  DISTANCE  IN  AIRCRAFT*  **F10.3**  Ft*,/*20X 
1*PARACHUTE  PACK  DRAG  AREA*  **FlO,3. 1X*5HFT**2./*20X**EXTRACTI0N  CM 
2UTE  DRAG  AREA*  **F>10 13 . 1 X.5HPT **2*/ *20X**f IME  OF*  EXTRACTION  CHUTE 
3RELEASE*  **F10.2**  SEC**////) 

25  FORMAT (////.20X,*RELEAS£i  DISTANCE  IN  AIRCRAFT*  **F10«3**  FT4./.20X 
1#RE£FING  RATIO*  **F10*3»/*20X**REEF£0  PROU,  DIAMETER*  *»F10,3«*  Ft 
2**/*20X**TIME  OF  PARACHUTE  DJSREEF*  **FlO,2*»  SEC**////) 

26  FORMAT (5/  *4X,*TIME**5X,*ALTITUDE*.4X.*5YSTEM**3X**C,M,  TRAU,Av10X 
1**C.M,  POSITION*, 26X **C»M,  VELOCITY** 18X**c,M,**/*26X**ANGLE#»6X* 

2  *ANGLE*  *  8  0  X  *  *  A  C  C£  L  E  R  A  T 1 0  N  *  * / 4  X  *  * ( S  EC ) #  *  6  X  *  * ( F  T ) *  *  7  X  * • t  DEG) • 

3* 6X** (DEG) **18X** (FT) p*32X»* (FT/SEC) **17X** (FT/SEC/SEC) **/*50X**XP 
4*10X,*Y**l0X,*Z**8X**TOTAL»*8X,*X**l0X.*Y*,10X,*Z**8X**T0TAL*5/) 
END 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
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SUBROUTINE  SNATCH (TRCA,DT) 

COMMON  /CONST/  ALT*PI *G*CDP*DNOT *CDSL*LSS*ML*  MP*MSS*MST*NINT 
COMMON  /VARIABL/  RH0*TfV*THETA*X*Z*UNUS£D*UNU$ED2*UNUSED3 
REAL  K,L*LSS*ML*MP*MPBA0*M1,M2*MS$*LRXBR 
ICOUNTsO 

RE AO  5*MPBAG*C0S2*K*LRXBR 
PRINT  7>MPBAG*C0S2*K*LRXBR 
I Fi(N INT * GT .  0 )  PRINT  9 
M2*MP 

Ml=ML*0.5*MSS 

CAPM2sMP*MPBAG*0.5*MSS 

CAPM1=ML«-MS$ 

COSlsCOSL 

vl*v 

V2*V 


L*0.0 

1  CALL  BODIES (Ml  *  CD 51 *CAPM2 *CDS2 * Vl *V2*L*DT) 

TRAJANG*THETA*1 ,/PI 
VlX«Vl*SlN(THETA) 

VVz*V1*CQS(THETa> 

IC0UNT*IC0UNT*1 

ALTMZsALT-Z 

IFidCOUNT.EQ.NINT)  PRINT  6*T*ALTMZ*TRAJANG* TRAJANG*X*Z* VI *VIX*VlZ 
IF(IC0UNT,EQ,NINT)  ICOUNTaO 
IFKL-LSS-LRX8R)  1*2*2 

2  TL*T 

trajl-trajang 

XLPX 
ZLbZ 
V 1 L*  V 1 
V2L*V2 

Q=CAPMI/(CAPM1*M2) 

VF*(CAPM1*V1*M2*V2)/  (CAPMI*MJ>) 

DELTAV*VF-V2 

FAl*RH0*C0Sl*(Vl*Vl*VF*VF>/4. 

F42sRH0*CDS2*(V2*V2*VF*VF>/4, 


3 


4 


5 

6 
7 


B 


A*l./K 

8=FA1*(1.*Q*2.*V2*Q/DELTAV) +FA2*(Q  ♦2.*V2*Q/DELTAV) 

C»CAPM1 * (Q-l . ) /Q*  < (Q*l , ) /Q*DELXAV*DELTA V*2  #*V2*DELTAV)  *M2* (DELTAV 
I*0ELTAV*2.*V2*DEt-TAV) 

PMAX*-B*SQRT(8*8-C/A) 

TRCAsT 
Vl=V2sVF 
Ml =mp*ml*mss 

COSlsCDSL^O.°X5*CDP#DNOTttONOT*Pl/A, 

CALL  BODIES (MI *CDS1 *MP8AG*CDS2*V1*V2*L*DT) 

TRAJANG*THETA»1B0,/PI 

V1X*V1*SIN(THETA> 

Vl Z*Vl*COS ( THETA) 

I  COUNT* I COUNT* 1 

autmz-alw 

IF!(ICOUNT,EQ*NINT)  PRINT  6*T*ALTMZ*TRAJANG*TRAJANG»X*Z*V1*V1X*V1Z 
IFi(lcOljNT,EQ.NlNT)  ICQUNt*0 
IF(L-LSS-LRXBR-DN0T/2.)  3*4*4 


V=V1 

PRINT  8*TL*TRAJL*XL*ZL*VlL*V2LtPMAX*VF 
RETURN 


FORMAT (4F10*0) 

F0RMAT(lX*F8.2*4Fn.2*llX*3F11.2*llX*Fn.2) 

FORMAT <////*20X**PARACHJTE  PACK  MASS*  **FlO#3**  SLUG**/*20X**PARAC 
ihute  pack  and  pilot/extraction  chute  drag  area®  *.fio,3*ix*5hft** 
2/20X**SPRING  CONSTANT*  **F10.3**  L0/FT** /* 20X**lENGTH  OF  RISERS* 
3XTENSI0NS  AND  LOAD  BRIDLE*  **F10.3**  FT**////) 
F0RMAT(//.50X**TIME(SEC)  ANGlE(DEG)  X(FT)  Z(FT)  VELOCITY  1 

1 ( FT/SEC)  VELOCITY? (FT/ SEC) **/*20X**SNAT  CH*  *20X*  4F1 1 ,2*2Fl 5*2* / /* 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
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m  rvj' 


220X**SNATCH  FORCE*  **FlO.O,*  LB*f/*20X**SN4TCH  VELOCITY*  «*F10.3r 
3*  FT/SEC*) 

9  FORMAT (5/  ,4Xf#TIME**5Xf*ALTlTUDE*,4X,*5Y5TEM*f3Xt*C*M.  TRAJ.*tlOX 
l**C.M,  POSIT  ION* *26X,*C.M*  VELOCI TY** 18X**C.M.*,/* 26X**ANGLE**6X* 

2  #ANGLE*  *80X**ACCELERATIQN**/4X**(SEC>**M**(FT) **7Xt*(0EG)* 
3* 6X**( DEG) **18X,* (FT) *,32X,* (FT/SEC) **17X»* (FT/SEC/SEC) *,/f50X,*X* 
4* 10X,*Y**10X,*Z*, 8X,*TOTAL#*8Xi*X*,10X**Y*f 10X**Z** 8X* *T0TAL*5/) 
END 


SUBROUTINE  BODIES (Ml*CDSl*M2,CDS2,VltV2*L*DT) 

COMMON  /CONST/  ALT*PI *G*CDP*DNOT*CDSLtLSS*ML»MPf MSS*MST*NOUSE 
COMMON  /VARIA3L/  RHO * T *  V  *  THETA  *  X t Z » UNUSED * UNUSED2 * UNUSE03 
REAL  M1*M2,L 
CALL  DENSITY (RHO* ALT-Z) 

DTHETA=«G*SIN(ThETA)*DT/V1 

DVl* (G*COS(THETA)*RHO*CDSl*Vl*Vl/(2**Ml )  )*dT 

DV2*  (  G*COS  (THETA)  '-RH0*CDS2*V2*V2/  (2,*M2)  )  *DT 

DXsV1*SIN(THETA)*0T 

DZ*Vi#CQS(THETA)*DT 

DL«V1*DT*V2*DT 

THETA*THETA4DTHETA 

Vl *Vl ♦ D  V 1 

V2*V2*DV2 

X*X*DX 

Z*Z+DZ 

L-L+DL 

T-T+DT 

RETURN 

END 


SUBROUTINE  OPENING (DQ*TRCA*N#F*V0LUM6* I EXTRAC*DTT) 

DIMENSION  F (N) *REEF (7*10) 

COMMO  N  /CONST/  ALT  *  P I  *  G  > COP  *  DNOT  *  CDSL  * ISS  *  ML  *  MP  *  MSS  * MST  *  N I NT 
COMMON  /VARIABL/  RHO  *  T  t  V  *  THETA  *  X  t  Z  *  UNUSED  *  UNUSE D2  *  UNUSE03 
REAL  LSS*ML*MPt MS*MSS 
ICOUNTsO 

DCAPT*OCAPTR*l./N 

MS*ML*MSS*MP 

READ  6*NREEF 

IFKNREEF.EQ.O)  GO  TO  4 

NREEF*NREEF»IEXTRAC 

NR£EFl*NREEF+l 

DO  3  1*1 *NREEFl 

READ  7*R0*R1*TCD 

TNOT*T 

TDR*TRCA+TCD 

HO*(4.*LSS*RO*2**RO*DNOT)/(4.*LSS*PI*RO*DNOT) 

HI* (4**LsS*Rl  +  2*  *R1*DN0T )  / (4**LSS*PI*R1*DN0T ) 

HTDNOT*Hl*DNOT 

PRINT  11, Rl*  HTONOT *TCDtTDR 

IFKNINT *GT*0 )  PRINT  12 

Vl* (Hi *Hl *Hl *HO*H0*HO ) *DNOT*DNOT#DNQT 

V2*H1*h1*$QRT( (LSS*ONOT/2.*PI/4,*Hl*DNOT)**2-Hl«Hl«DNOT*DNOT/4#) 
V3*HO*HG*SQRT( < LSS*DNQT/2.»PI/4.*HO*DNOT) **2«-HO*HO*DNOT*DNQT/4* ) 
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V4®R1*R1*SQRT (LS5*LSSwRl*Rl*DN0T*0N0T/4. ) 
V5sRO*RO*SQRT(L5S*LSS-RO*RO*DNQT*DNOT/4.) 

VOLUME*  (V1*DNOT*DNOT*  <V2*V3**V4+V5)  )*PI/12. 

V0*V 

X0»X 

zo*z 

t met aOp theta 

- ►  CALL  FTLLTIM(VOLUME*VO,XO,ZO,THETAO,MS.HO,hI.N.F*TF) 

FO*°«0 

DT*OCAPTR*TF 

CAPTR«O,0 

DO  1  J®1 *  N 

I  COUNT* I  COUNT ♦ 1 

CAPTR«CAPTR*OCAPTR 

T*TF*CAPTR*TNOT 

C APT *PI*PI/4.* ( Hl*Hl*CAPTR*HO*HO*  ( 1  .**CAPTR)  ) 

DCAPT»PI*PI/4.* (H1*H1*hO«hO)*DCAPTR 

_ ►  CALL  CALC (CAPT* TF .DCAPT .DCAPTR.MS.DV.DP.D) 

FRCE*ML* (O^COS(THETA) *»DV/OT) 

FO*AMAXl (FRCE.FO) 

TRAJANG®THET A#180./PI 
VX*V*SIN(THETA) 

VZ»V#COS (THETA) 

IFUNINT.LT. 0)  GO  TO  1 
IFKICOUNT.LT. N/20)  GO  TO  1 
ICOUNT=0 
ALfTMZ«ALT*Z 

ACC***  <G#COS  (THETA)  -DV/DT) 

PRINT  8*T. ALTMZ, TRAUANG.TRAUANG.X.Z* V* VX. VZ* ACC 
1  CONTINUE 
REEF (1 .1 ) *T 
REEF(2.I)*TRAUANG 
REEF ( 3* I ) *X 
REEF ( 4. I ) ®Z 
REEF (5* I )  *V 
REEF (6*1) *FO 
REEF ( 7.1) *TF 
IFI(NREEF*1-I)  3.3.2 
2<  IFKT.GE.TOR)  GO  TO  3 

COS*CDP*PI*DNOT*ONOT*Hl*Hl/4, 

CD5T*C0$*CDSL 

- ►  CALL  TRAUEQNKT.V. THETA. XrZ.RHO.CDST, MS, OTT.G, ALT.OV) 

AL**G#COS < THETA) ♦OV/DTT 
TRAUANG*THETA*180./PI 
VX*V*SIN (THETA) 

VZ*V#COS (THETA) 

I COON T®  I COUNT* 1 

altmz®alt*z 

IFKICOUNT.EQ.NINT)  PRINT  e.T.ALTMZ.TRAUANG.TRAUANG.X.ZfV.VX.VZ.AL 
IFKICOUNT.EQ.NINT)  I COUNT* 0 
I Ft( T»TDR)  2.3.3 

3  CONTINUE 

PRINT  9.  (REEF(J.l) #U®I*T) 

IF!  (NREEF.GT.O)PRINT  10. ( (REEF(J.I) .U®I.7)fI*2*NR£EFl) 

DOaDV/DT 

RETURN 

4  VOLUME*VOLUMG 
HOaO.O 

Hi *2, /PI 

IFi(NINT.GT.O)  PRINT  12 

TNOT*T 

VO®V 

XO*X 

zo*z 

THETAO*THETA 

— ►  CALL  FILLTIM(V0lUME.V0.X0.Z0*THETA0.MS.H0.HI.N.F.TF) 
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FOaO.O 

DT*OCAPT*TF 

c apt*o • o 

DO  5  J«lfN 
I  COUNT* I  COUNT* 1 
CAPT*CAPT ♦OCAPT 
T*TF*CAPT*TNOT 

- ►  CALL  CALC  (CAPT » TF  »DCAPT»DCAPTR*MS*DV  »DP*D) 

FRCE*ML*  <G*COS (THETA) -DV/DT) 

FOsAMAXl (FRCEfFO) 

TRAJANG*THETA*180./P1 

VX*V*SIN(THETA) 

VZ*V*COS (THETA) 

IFKNINT.LT.O)  GO  TO  5 
IFUICOUNT.LT. N/20)  GO  TO-  5 
iCOUNTeO 
AUTMZ*ALT-Z 

ACC*- (G*COS (THETA) -DV/DT) 

PRINT  8*T*ALTMZ.TRAJANGiTRAJANG.X*Z*V,VX*VZ*ACC 

5  CONTINUE 

PRINT  9,T,TRAJANG»X,Z,V,F0,TF 

DO*DV/DT 

RETURN 

6  FORMAT(Il) 

7  FORMAT ( 3pl 0.0) 

8  FORMAT  ( 1X.F8, 2, 4FU  .2,11  X*3pH  .2*11  X*2fH  *2) 

9  FORMAT*//, 6lX,*TlME<SEC)  ANGLE(DEG)  X  ( F  T )  Z(FT)  VCFT/.SEC)  F 
lMAx(LB)  TF(SEC)  *,/,2QX,*FyLL  OR  REEFED  INFLATION  *,12X»F10.2, 
2F  9.2,3F10.2,F10.0,F10.2) 

10  FORMAT (9 (58X»F10.2*F  9.2,3f10.2,F10.0,f10.2,/) ) 

11  FORMAT (////» 20X,*REEFED  INFLATION*, /,25X,*rEEFTNG  RATIO*  *,F10.3»/ 
1,25X,*REEFE0  PROU.  DIAM,*  *,F10.3»*  FT*»/»25X,*CUTTER  DELAY*  *»F10 
2.3**  SEC  *,/»25X,*TlME  OF  DISREEF*  **F10.3,*  SEC*»////> 

12  FORMAT (5/  , 4X,*T I  ME*, 5X** ALTITUDE* , 4X,* SYSTEM*. 3X,*C.M,  TRAJ.*,10X 
1,*C.M.  POSITION*, 26X,*C.M.  VELOCITY*, 18X»*C.M.*,/*26X»*ANGLE** 6'X, 

2  * ANGLE*  *80X,*ACCELERATION*,/4x,*(SEc)**6X,*(FT)**7X,*(OEG)* 

3, 8X, *( DEG )*,18X,* (FT )*,32X,*( FT/SEC) *,17X** (FT/SEC/SEC) *,/,50X*»X* 
4,10X,*Y*,10X,*Z*,BX,*TOTAL*,8X,*X*,10X,*Y*,IOX,*Z*,8X**TOTAL*5/) 
END 


SUBROUTINE  F ILLTI M ( VOLUME , VO , XO , ZO , THETAO ,MS, HO ,H1 ,N, VOLDOT ,TF ) 

COMMON  /CONST/  ALT, PI ,G, COP, DNOT,CDSL,LSS, ML, MP, MSS, MST, NOUSE 

COMMON  /VARIABL/  RHO,T,V, THETA, X,Z, UNUSED, UNUSE02,UNUSED3 

REAL  LSS, MS 

DIMENSION  VOLDOT ( NO 

DCAPTR*! ./N 

TF*0. 

DTF«2.0*H1*ONOT/V0 

1  TF*TF*DTF 

v*vo 

X»XO 

z*zo 

THETA*THETAO 
C APTR«0 • 0 

2  DO  3  1*1, N 
CAPTR*CAPTR* DCAPTR 

CAPT*PI*PI/4,*(h1*H1*CAPTR*HO*hO*(1.-CAPTR) ) 
DCAPT=PI*PI/4,*(Hl*Hl-HO*HO)*DCAPTR 

- ►  CALL  CALC (CART, tF, OCAPT, DCAPTRtMS*DV,DP,D) 

C0*0, 05 
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CsCO* < RHO/0. 002378) ♦*. 142857 

3  VOLDOT ( I ) *V* ( ( 1 * ♦2#2*C*CAPT*CAPT) *DAD/4**1 , l*C*DP*DP/2* ) 
SJM*VOLOOT(N> 

NMl*N»l 

DO  4  J*1 tNMl *2 

4  SUM»SUM^4,*VOLDOTU> 

NM2*N«2 

DO  5  K»2*NM2*2 

5  SUMbSUM*2.**/QLD0T<K) 

vol*dcaptr/3.«sum*pi*tf 

IF!(ABS<V0L*V0LUME) /VOLUME"^, OOQOl)  7f7*6 

6  OTF*TF»( VOLUME/ VOUKl.) 

60  TO  1 

7  V»VQ 
XsXO 
Z»Z0 

THETAbTHETAO 

RETURN 

END 


SUBROUTINE  CALC(CAPT*TF*DCAPT*DCAPTR*M*DV*DP*D) 

COMMON  /CONST/  ALT*PI *G*CDP*ONOT*CDSL*LS$*ML*MP*MSS*M$T  *NOUSE 
COMMON  /VARIABL/  RHO*T* V*THETA*X*Z*UNusED*uNUSE02*UNUS£D3 
REAL  USS*M*MA*MI*MT 
DP*2.*0N0T/PI*SQRT(CAPT) 

DPMAX«2.*0N0T/PI 
DPOOTbDNOT/ <PI*$QRT (CAPT) ) 

D«;(4.*L$S*DP)/<4.*LSS*2.*DN0T"'PI*DP) 

DOOT*( <4#*L5S*2.*DN0T-PI*DP)*4.*LSS*DPD0T*4,*L5S*DP*PI*DP00T) /<4.* 
1LSS*2.*DN0T*PI*0P)**2 

MAbPI *RHO*DP*DP*OP*DP*DP/ < 32  * *DPMAX*DPM AX ) 

DMA«5,*PI*RH0/ <32.*DPMAX*DPMAX) *DP*0P#DP*DP*DP00T*DCAPT 
SQbSQRTULSS*DNOT/2.»PI*DP/4;)**2-0P*DP/4,> 

SQIbSQRT (LSS*LSS-D*D/4* ) 

Ml3PI*RH0/12**(QP*DP*0P*DP*DP*SOD*Q*SQl) 

DMlBPI*RH0/12.*<3.*DP*DP*DPD0T»DP*DP*U2t*LSS*DN0T«PI*0P/2*)*PI*DP 
1 DOT/4* ♦DRADPDOT/Ht ) / (2*#SQ) ♦  2«*DP#DPDOT#S0’*D*D*D*DDOT/ (4##SQ1 ) 
2D*DD0T*S<}1)*DCAPT 

mt»m*ma^mi 

0THETA*-6«SIN( theta) *M*0CAPTROTF/(V*MT) 

COS«CDP*PI*DP*OP/4.*CDSL 

0Vb;<m*G*C0S<THETA)/MT-RH0*V*V*CDS/(2.*MT) )*DCAPTR*TP*V*(DM1*DMa> 
1/MT 

DXbV*SIN(  THETA)  #DCAPTR<»TF 
DZ»V»COS ( THETA ) *OCAPTR*TF 

theta«theta^dtheta 

V*V*DV 

XbX*DX 

Zul+QZ 

CALL  DENSITY{RHO*ALT*Z) 

return 

END 
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SUBROUTINE  INT6RAT (T , Y*TF»NN#PCTERR>ETAtTRYl #TRY2 , TRY3, W* YDQT*Z* ID 
1*0X»T1»ISIGNAL) 

DIMENSION  Y  (NN) , YDOT (NN) , TRYI (NN) ,  TRY2 (NN) ,TRY3 (NN) ,ETA (NN) ,W(NN) * 
1Z(NN) 

MMs0 

T1*T 

IMOONEs-1 
I PK ID)  1  * Ii2 

1  DT*OX 

GO  TO  12 

2  DTaTF-Tl 

M*0 

3  CALL  FORMULA (Y»dT »TRYl ,NN,W,  YDOT*Z*D 
IFKL.GT.O)  GO  TO  15 

A  CALL  FORMULA(Y*0.5#OT*TRY2fNN«W*YDOT*Z*U) 

IFKL.GT.O)  GO  TO  15 

-  CALL  FORMULA (TRY2,Q .5#DT,TRY3»NN,W » YDOT *2 *L) 

IFKL. GT.O)  GO  TO  15 
DO  5  U*1*NN 

ERR1*A8S(TRY3(U) -TRY1 (J)  ) 

ERR2=AMAX1 (ETA(J) »PCTERR*A8S(TRY3( J) ) ) 

IFKERR1-ERR2)  5,5.10 

5  CONTINUE 
MM*0 

DO  6  K*1,NN 

6  Y(K)*TRY3(K) 

TUTUDT> 

IFKM. lT.5)  8,9 

8  M*M*1 

GO  TO  12 

9  M*0 
DT*2. 0*DT 
GO  TO  12 

10 

MM=MM*1  .. 

IFKMM.GT.20)  GO  TO  16 
1MDONE  *  -1 
DT=DT*0.5 
DO*  11  1*1  ,NN 

11  TRY1 ( I ) *TRY2 ( I ) 

GO  TO  A 

7  IFi(TUTF*DT)  3,13,13 

12  IFiUMDONE)  7 *H,H 

13  DxsDj 
DTsTF-Tl 

IFKOT.EO.O.)  GO  TO  14 
1MDONE*! 

GO  TO  3 

14  CALL  EMOTION (Y,Y00T*1»ISIGNAL) 

DXsAMAXl (OX,DT) 

RETURN 

15  M*0 
MM=MM*1 

IFKMM.GT.20)  GO  TO  16 
IMDONE*-! 

DT*DT*0.5 
GO  TO  3 

16  I  SIGNAL* 1 
PRINT  17 
RETURN 

17  FORMAT l5/f5X,5H*F****CANN0T  INTEGRATE  OR  ANGLE  OF  ATTACK  LARGE*) 
en*d 
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SUBROUTINE  FORMULA  (YtHtYI tNNtWtYDOTtZ 1 1  SIGNAL) 

DIMENSIONY (NN) *  YDOT  <  NN) *YI (NN) tW(NN) tZ(NN) t  A<5) 

A ( 3) * A ( 4 ) *H 

A(1)*A(2)=A<5)»0.5*H 

00  1  J*1 tNN 

Z(J)*Y00T(J) 

W(J>=Y(J) 

1  YI(J)=Y<J> 

DO  2  K*1 *4 

►  CALL  £MQTlONUtZt2f  I  SIGNAL) 

IFKISIGNAL.GT.O)  return 
CsA<K*l> *0.333333333333333 
00  2  Lai tNN 
W(L)«Y(L)*A(K)*Z(U) 

2  YI (L)sYI (L)*C*Z(L> 

RETURN 

ENO 


SUBROUTINE  TRAJEQN(TtVtTHETAtXtZ*RHOtCDStMtDTtGtALTtDV) 
REAL  M 

CALL  DENSITY  (RHOtAL  W) 

DY» <G*COS( THETA) «RHO*CDS*V*V/ (2,*M) )*DT 

DTHETA*"G*SIN (THETA) *OT/V 

QXaV*SIN< THETA) *DT 

DZ*V*COS( THETA) *DT 

V»V*OV 

THETA«THETA*DTHETA 

XsX+OX 

z«z*oz 

TsT*OT 

RETURN 

ENO 


SUBROUTINE  DENSITY (RHOtH) 

RHO*0 « 00237B#EXP ( -M/32916* ) 

IFi(H,  GT*  15000*  )  RHO«0*  002378* l  ,07133#EXP  <«H/2s593  *  ) 

RETURN 

END 


SUBROUTINE  DYNAMIC (RHOtLl tL2#L3t IXX t I YY • IZZt I XZtMI ) 

REAL  IAtlAZtlAZOtlYtlYYt IXXtlXZtlZ*IZZtLl*L2*L3*M8R*MLtMLStMRtMRXt 


COMMON  /DYNAM/  DN0T»  Xlt  X2*  X3*X4tX5*MBR*ML*MLS*MP*MRtM,lXt  IAZO*  IZt 
1Q1 tQ2tV0LUMEfXNUMtXDENOM 
MlaRHO*VOLUME 

X«(XNUM^MI#Q1*DN0T)/ (XDENOM^MI) 


Ll*X5»X 

L2*»X-Q1*DN0T 

L3*DN0T"*X 

I A«0* 13l95*RHO*Q2*Q2*Q2*DNOT*DNOT*DNOT*L2*L2 

IYaMpaL2*L2*MLS*(X«Xi)* (X»X1) ♦MR*(X2«X) * (X2*X) *MRX* ( X3»X) * CX3-X) ♦ 
1M3R* ( X4-X) * (X4-X) ♦ML*L1*L1 
I YY=I Y* IA 
I  XXs  I YY 

IAZ*IAZ0«RMD/0*002378 

IZZ=IZ+IAZ 

IXZsO.O 

RETURN 


END 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
(Continued) 


167 


SUBROUTINE  MOTION (DQ.PCTERR.ETA.DT) 

DIMENSION  Y (6) *YDOT<6) *ETA(6> *X1 (6) *X2<6) tX3<6) *W(6) *0(6) *VERTPAR( 
18*3) 

REAL  U 

COMMON!  /CONST/  ALT.PI*G*CDP*DNOT*COSL»L$S*Ml*MP*MSS*MST*N!NT 
COMMON  /VARIA8L/  RHO*T* V* THETA* X*Z*ALPHAL*ALPHAP» LI 
PRINT  8 

READ  7*TSTOP*ZSTOP 
T$TOP»TSTOP*T 
IFKNINT.OT.O)  Print  6 
A MARK*! • 0 
NMARKseO 
I  VERT-1 

ANG«THETA*180./PI 

10*1 

Y(1)*0. 

Y(2)»V 

Y(3)«**G*$IN(TH£TA)/V 
Y (4) »THETA 
Y (5) *X 
Y<6)*Z 

YOOT ( 3) *G*G*C0S( THETA) *$IN (THETA) /(V*V)*G*$IN< THETA) /<V*V)*DQ 
tf*t*dt 

N‘JM8*I  ABS (NINT ) 

1  DO  2  1*1. NUMB 

- ►  CALL  INT6RaT(T*Y.TF*6*PCTERR  *ETA*X1 *X2*X3vM« YOOT*0*IO«DX»T1«K) 

IFKK.6t*0)  RETURN 
V0*V 

/~R2*Y  ( 6 )  *L  1  *C05  ( Y  ( 4 )  > 

IF!(R2.6T.ZST0P)  C0RR*(ZST0P«RZ)/(R2*RZ) 

IFKTl.ST.TSfOP)  CORR* (T5T0P*T)  /  (Tl«*T) 
lFl(R29St .ZSTOP.QR.Tl .GT.TSTOp)  GO  TO  3 
T*T1 

RX*Y ( S ) ♦Ll *SIN ( Y ( 4) ) 

RZ*R2 

VXa ( Y (1 >  *Y (3) *L1 ) *CO$ (Y  (4) ) #Y (2) *51N( Y (4) > 
VZ*MY(1)*Y(3)*L1)*SIN(Y(4) )  AY (2) #COS ( Y (4) ) 

AX* ( YOOT ( 1 ) *Y (2) *Y (3) *  YOOT (37*L1 )  *COS ( Y (4) ) ♦ ( YqOT (2) *Y (1 ) *Y (3) • 
1Y(3)*Y(3)*L1)*SIN(Y(4) ) 

AZ*»  (  YOOT  ( 1 ) ♦ Y ( 2) *¥ ( 3 )  ♦  YDOT  ( 3 ) *L! )  *Sl  M  Y  ( 4) )  ♦'■('YOOT '( 2 )  *Y  ( 1 ) *Y  ( 3) 

1-Y  (3) *Y (3)  )  *COS  ( Y  (4) ) 

V»SQRT(VX*VX*VZ*VZ) 

A*SQRT(AX*AX*AZ*AZ) 

I FKV.LT. VO)  A«»A 
SYSANGL*Y(4) *180. /PI 
ALRHA1*ALPHAL*180./PI 
trajang*sysangl-alphai 

IFKIVERT.0T.3)  GO  TO  15 

IFKSY$AN6L/ABS(SYSANGL)-ANG/ABS(ANG))  13*12*13 

12  IFK ( ABS (SYSANGL) *ABS ( ANG) > *AMARK.GE.O.O)  GO  To  13 
VERTPAR(1*IVERT)*T 

VERTPAR (2  *  I verT  >  *alt *rz 
VERTPAR (3* 1 VERT  >  *RX 
VERTPAR(4.IVERT)*RZ 
VERTPAR (5* I VERT )*V 
VERTPAR(6*IVERT)*VX 
VERTPAR (7* I  VERT )  *VZ 
VERTPAR(8*IVERT)*A 
ANG«SYSANGL 
GO  TO  15 

13  AMARKa-AMARK 
NMARK*NMARK*1 

GO  T0(14,12. 14*12*14)  NMARK 

14  I  VERT*! VERT* 1 
ANG-SYSANGL 
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15  IQ*~1 

NUM8»IABS(NINT) 

lFi<NUMB*0X*GT.l,0)  NUM0*MAXl <1 » *1«/DX) 

tf*t*dx 

2  CONTINUE 
AUfTMRZ*AUT»RZ 

ifknint.qt.o)  print  4  *  t  *  altmrz * sysangl  * trajang* rx  *rz  » v • vx  »  vz  *  a 

GO  TO  1 

3  T“:(T1*T>  *CQRR*T 
R1*Y (5)  ♦L1#SIN  ( Y  ( 4*)  > 

Vl*<Y<n*Y(3>*Ll>*C0S<Y<4>)*Y(2>*SlN<YC4n 
V2m»(Y<1)*Y<3>*U)*SIN(Y<4) )  *Y  (2)  *COS ( Y  (4)  ) 

A 1  ■* < Y DOT  ( 1 )  *Y (2) *Y (3) ♦YDOT  <3Y*L1  >*COS ( Y (4)  )*  ( YDOT  (2)»V  ( 1) *Y (3)» 

1 Y  (3) *Y  (3) *L1 ) *SIN  ( Y (4) ) 

A2»* ( YDOT  (1 )  ♦  Y  < 2 )  *Y  (3) ♦YDOT  (3) *Ll  1  *SIN ( Y (4) )  ♦  ( YDOT  (2)  "»Y  (1)  *Y  (3) 

1- Y  ( 3 )  * Y  < 3 )  *U )  *COS  ( Y  (4) ) 

RX» (R1»RX) *CORR#RX 
RZ*(R2»RZ)*C0RR#RZ 
VX»<Vl-VX>*CORR^VX 
V  Z  V2« V  Z ) *  CQRR ♦ V  Z 
AXs<A1-AX)*CORR*AX 
AZMA2*AZ)*C0RR*AZ 
V*SQRT(VX*V>UVZ*VZ) 

A«SQRT(AX*AX*AZPAZ) 

IFTV.LT.VO)  A*»A 

SYSANGL*  (Y  (4)  *1 80  ./Pl-SYSANGD^CQRR^SVSANGl, 

AlPHAlk(ALPHAL*lBO./PI-ALPHAl)*CORR*Al.PMAl 

TRAJANG*5YSANGL»ALPHAl 

altmrz-aut-rz, 

IF!(NINT*GT*0>  PRINT  4*T*ALTMRZ*SYSANGL*TRAjANG*RX*RZ*V*VX*VZ* A 
PRINT  5r 
IVERT1»IVERT«1 
DO  31  J*1  • I VERT1 

31  PRINT  5.  U  * ( VERTPAR ( I*U) * !■! *8) 
return; 

4  FORMAT! 1X*F8*2*4F11*2*  11X*3F11*2*UX»2F11«2) 

3  FORMAT (20X* I 1**  VERTICAL/ M INI MUM*  *  F9 • 2  * FI 2,2* FI 1 •  2  * 3F1 0 • 2 • 2F1 2*2) 
51  FORMAT (//*40X**TI ME (SEC)  ALT!TUDe(FT)  X(FT)  Z(FT>  V(FT/S£C) 

1  VX(FT/SEC>  VZ (FT/SEC)  A <FT/SEC/SEC)*) 

6  FORMAT (5/  » 4X t *  T I ME* *  5X  *  * ALT 1 TUDE** 4X *  #5YSTEM*^ 3X * *LOAD  TRAJ«*«10X 
l **j.O AD  POSITION** 26X**L0A0  VEL0ciTY*n8X**t0AD*f /*2GX**ANGLi»9feXe 

2  *ANGLE*  *  80X**ACCELERATIQN** /AX»* ( SEC>  #*6X«  *  (FT) **  ?X  *  *( DEG) *' 
3*6X**(DEG) **18X»* (FT) **32X** (FT/$EC) *t 17x**(Ft/SEC/SEC) *t/*50X«*X* 
4, 1  OX*  *Y*, iOX*#Z*,8X**YOTAL*.8X**X*» 1 OX,*Y** 10X,*Z**8X**TOTAL*5/) 

7  FORMAT (2F1 0*0) 

§  FORMAT (5/t5X**N0TEM»  POSITIONS* VELOCITIES* aCCELERATIONSsTRAU*  ANGL 
1ES  REFER  TO  LOAD*  PREVIOUS  RESULTS  ARE  FOR  MASS  CENTER*) 

END 


SUBROUT I NE  EMOT I ONK  Y  *  YDOT  *  I STOP  *  I SI GN  AL ) 

DIMENSION  Y  (6)*  YOO-T  (6) 

REAL  M*MA*MI*ML4MPi*MSS»IXX*  lYY*IZZf  IXZ*LltL2#L3*N 
COMMON;  /CONST/  ALT  *  Pi t  G * COP  *  DNOT • CDSL*LSS* MU*  MP* MS$»MST  *  NOUSE 
COMMON  /VARIABL/  RHO*T*V» THETA* XfZ*ALPHALtALPMAP«Ul 
CALL-  DENSITY (RHO* ALT*Y (6) ) 

CALL  DYNAMIC (RHO* LI *L2«L3* IXX* 1 YY* IZZ* 1XZ*MI ) 

MA*i,375*MI 

M«ML*MP*MSS*MA 

AsMA/M 

B*<ML#MP*M$5)*G/M 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
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C«RHO*PI*DNOT*DNOT/B. 

CONQT«C*DNOT 

E«0.5»RH0*CDSU 

V2*Y( 1 > ♦ V  C 1 ) ♦Y<2>*Y<2> 

ALPHApATAN (•¥(!) /Y  (2) ) 

VP2»V2+ Y (3)  #Y (3) *Le*L2t2 • *Y ( 1 >  *Y  <3 ) *L2 
ALPHAp«ATANt(*Y(l)*Y(3)*U)/Y(2)) 

Vi»2*V2*Y  (3)  *Y  (3)  *U#L1*2**Y  ( 1 )  *Y  <3)  *U 
ALPHAU*ATAN ( (-Y< 1 ) *Y (3) *11 > /Y  <2>  > 

- ►  CALL  COEFFTS ( ALPHAP*CT*CN*CMf ISTQPt ISI6NAL) 

I  P!(  I  SI  GNAL  *  ST  •  0 )  RETURN 

N*C*CN*VP2 

TT*C*CT*VP2 

AER0m*CDN0T*CM*VP2 

D*E*VL2 

YOOT  ( i  )  ®»A*YDOT (3) #L2-B*SIN (  Y  (4) )  ♦N/M+D^SIN  ( AlPHAL)  /M-Y (2)  *Y  (3) 
YOOT (2) *  A*y (3) *Y (3) *L2*B*C0S  C Y (4) ) *TT/M«0#C0S ( ALPHALI/M.Y < 1 ) *Y (3) 
YOOT  (3)*  N*L3/IYY*D*L1*SIN<ALPMAL)/IYY*AER0M/IYY»ML*G*SIN<Y(4) )*Ll 
1/IYY*MP*0*$IN<Y<4) >*L2/IYY 
YOOT (4) «V (3) 

YOOT(5)«Y(1)*COS(Y(4) ) ♦Y (2) *SIN (Y (4) ) 

YOOT (6) «»  Y  (1 ) *5IN ( Y (4) ) ♦Y (2 ) #CQS <Y  <4) ) 

RETURN 

END 


SUBROUTINE  C0EFFT5  < ALPHAP.CT  *CN*CM*  {-PRINT * I5IGNAL) 
AlPHAPD®ALPHAP*57,2957795i5 
IF«ABS< ALPHAPD). LT.B5.)  SO  TO  2 
IFI(IPRINT.EQ.I)  PRINT  ItALPHAPO 

isignalpi 

RETURN 

1  FORMAT (5X**ANGLE  OF  ATTACK®  **F9.3*»  *  TOO  LARGE*) 

2  I SIGNAL*-! 

A«AB5 ( ALPHAPD) 

IF!(A*30.0)  3*4.4 

3  CT*. 647-1 . 2E-05*A*9 . 1 5E-04*A* A-7 • 1 3E-05*A*A*A*  1  •  33E-06* A*A* A* A  ^ 
CNP-6t74E-03*At5.57E-04*A*A*1.53E-05*A*A*A*l,9E-07*A*A*A*A 
CM»4, 8V4E"»03*A»3#94E«»04#A*A*I #043E*05*A*A*A-1  *32E»07#A*A*A*A 
IFTAlPRAPO.GT.O,)  RETURN) 

CNa«*CNsJ  / 

CMa-CMV 

RETURN  /  , 

4  CT*0,62s/  / 

CNi=*  0  056*  (  A-30 , 0 )  **04s 
CMP-.0044*  ( A-30 *0 )  *»*034\ 

IF((  ALPHAPD, GT*0,  )  RETURN 
CN»-CN\J 
CMw-CMs/ 

RETURN 

end 


FIG  29  Computer  Program  for  Three  Degrees  of  Freedom 
(Concluded) 


170 


PROGRAM  TRAJSIM( INPUT* OUTPUT) 

C  THIS  IS  THE  MAIN  PROGRAM 

DIMENSION  ETA(12) *  SPACE (1000) 

REAL  IXX*IYY#UZ* IXZ*IaZ0*IZ*LSS*L1 *L2*L3*MA*MbR*ML*MLS*MP*MR* MRX* 
lMSStMST 

'  COMMON  /CONST/  ALT* P I  * G* COP* DNOT* COSL’ LSS* ML* MP* MSS* MST* NI NT 
COMMON  /VARIA8L/  PRO  * T *  V  *  THETA  *  X *Z* ALPHAL* ALPhAP* Ll 

COMMON  /DYNAM/  DYONOTiXl*X2*x3*X4*X5fMBR*OYML*MLS*DYMP,MR*MRx*IAZO 
- ' 1  *  I Z*  01  * Q2  *  VOLUME  *  XNUM*  XDENOM 
>1*3.141592653589793 
6*32. I 7 
READ  io*nsim 
>60  11  u*i*nsim 
READ  9*C1*C2*C3*C4*C5 
PRINT  12*C1*C2*C3*C4,C5 

READ  6*ALT*Vo*MST.MP.MLS*MR*MRX»M8R»ML*X1*X2*X3*X4*X5*IZ*IAZO* 
10N0T,esS.CDP*C0SL*Q1*O2,V0L-UmE.N*NnN,DT1*DT2*0T3,NINT 
:  DyDNOTsDNOT 

dyml=ml 

D YMP*MP 

XNUMsMtS*Xl+MR*x2*MRx*X3*M8R#x4*ML*X5-MP*Ql*DN0T 
v /X0E^OMsMP4MLS+MR«*MRX+MBR**ML 
V  M  S  S  *  M  L  S  +  M  R  ♦  M  R  X  *  M  d  R 

- — 1  CALL  DYNAMICS. 00237B*A1*A2*A3*A4*A5*A6*A7,A8) 

A9*0.375*A8 

- ►  CALL  DENSITY (RHO* ALT) 

- ►  CALL  DYNAMIC(RH0*31*B2*93*B4*B5*86*B7iBB) 

B9*0. 375*88 

PRINT  0*  ALT  *VO*MST  *ML*MP  f  Mts *  MR *MRX* MBR* A8*88 * ALT  * A9*B9 *  ALT  *  XI  * 

IX2*X3*X4*X5* A4*84*ALT*A5*B5*ALT*A6*B6*ALT* A7*87*ALT*DN0T.LSS*A1*B1 

$  2  *  ALT . A2 ♦ B2  *  ALT  »  A3 * 83 . ALT  *  Q 1 * Q2  *  VOLUME *  CDP 
PRINT  8l * CDSL* N 
'  NN*2*N 

READ  7* (ETA ( I ) ♦ I«1 *NN) * PC TERR 

- ►  CALL  EXTRACT (ISNATGH,IEXTRAC,V0*DT1,TRCA) 

iFi(ISNATCH)  4*4*5 
— ► 4  CALL  SN^TCH(TRCA*0T2) 

—►5  CALL'  OPENING  (DQ  *  TRCA  *NNN*  SPACE*  VOLUME  * lEXTRAC  *DT3) 

- — ►  CALL  M0TI0N(DQ*PCTERR*ETA*DT3) 

n  continue 

STOP 

6  FORMAT (2F10 ,0/7pl0 , 0/7FI0 .0/7F10  *0/1 1 *19 *3F 10.0*15) 

7  FORMAT (6F 1 0 • 0/6F 1 0.0/F10.0) 

8  FO>MaT(3/*5X**TRAUECTORY  SIMULATION— T*0*Z*0  IS  RELEASE  P0INT**3/* 
15X**RELEAsE  CONDI T IONS** /* 1  Ox  * "ALTITUDE** *Fl 0 . 0  *  *  Ft**/* 10X**VELOC 
2ITY«**F10.2**  FT/SEC**///*5X**MASSES— SLUGS**/lOX**TOTAL  SYSTEM*  * 
3*F!l0.3*/*lOX**LQAD*  <**F10.3*/*10X**PARACHUtE*  **F10.3*/*  10X**SUSP. 
4  LINES*  **F10.3*/*10X**RISERS=  **F10.3*/* 10X**RIS£R  EXTENSIONS*  ** 
5F10.3*/* I0X**L0AD  BRIDLE*  **F10.3*/*10X**INCLUDED*  **Fl 0 .3** ( SEA  L 
6E  V  EL )**F10.3**(**  F7 . 0  *  *  FT) **/* 1QX**APPAReNT*  *  *  FI  0 .3  *  * ( SEA  LEVEL 
7)**F10.3**(**F7,0**  FT)  **///*5x**REFErENCE  DISTANCES  FROM  SKIRT  — 
8  FT#*/*10X**X1*  **F10.3*/*10X**X2*  ** FI 0 •  3* /*  1 0 X* *X3*  **FlG.3*/» 

91 0X**X4*  *  * F10  •  3/1  OX  **X5*  * *Fl 0 .3/// * 5x * *MOM. /PROD.  INERTIA— SLUG 
1FT**3H**2*/*10X.*IxXs  *,F15.3**(SEA  LEVEL)  **F  15 .3 **■(** F7.0**  FT)* 
2*/*l0X**IYY*  ** FI  5. 3** (SEA  LEVEL)  ** F 15. 3* *  <**  F7. 0* *  FT)**/*10X* 

3  *IZZ*  **Fl5.3**(SEA  LEVEL)  *.Fl5.3**  <**F7.0**  FT ) ** /* 1  OX **I XZ*  ** 
4F15.3**(SEA  LEVEL) *  *F 15. 3*  * (**F7 .0  *  *  FT) **///*5X**DIMENsIONs—  FT 
5**/*IOX**ONOT*  #*F10.3*/* 10X**SUSP.  SYSTEM*  **F10.3*/* 10X**L1*  **F 
610.3** (SEA  LEVEl)**F10.3**(**F7.0**  FT ) *  * /* 1  OX  **L2=  **f10,3**(SEA 
7  LEVEL) *  *  F 1 0 . 3  *  *  ( *  *  F  7 . 0  *  *  FT) **/*10X**L3*  **F1 0.3** (SEA  LEVEL) **F 
810.3** (**F7.0**  FT)**///*5X,*YC/DN0T*  ** FlO . 3* /* 5X**DP/DNQT*  **F1 

90.3*/*5X**V0LUMEs  **F10«3*6H  FT**3*/*5X**PaRACHUTE  CDP*  **F10.3> 

8 1  FORMAT (5X**LOAO  DRAG  AREA*  **F10.3*6H  FT**2 */ *5X * *DEGREES  OF  FREE 
lDOMs  **110*5/) 
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9  FORMAT (5A 10) 

10  F0RMATU3) 

13  FORMAT  <1H1,/,5X,*PARACHJTE-L0AD  SYSTEM  ( DEPLOYMENT  >— #, 5A 1 0 ) 

END 


subroutine  extract ( i snatch, iextrac, vo,dt*trca) 

COMMON  /CONST/  ALT »PI ,Gt CDP ,DNGT»CDSL»LSS»MLt MP»MSS»MST,NINT 
COMMON  /VARIA8L/  RHO, T, V»THETA,X,Z,UNUSED»UNUSE02,UNUSED3 
REAL  LENGTH*LSPlL0T»LSS»LSTATlC*MST*MTtLRX8R 
I  COUNT* 0 

READ  15* 1ST  ATIC .IEXTRAC 
IFi(ISTATlC)  1,8,8 

1  READ  16,LSTATIG,CDSBAG,CDSP,DPIL0T,LSP1L0T,TD,LRX8R 
DISTANC*LSTATIC 
PRINT  23tLSTATIC*C0SBAG 

I  Fit  DP  I  LOT • GT « 0* 0 )  PRINT  23,CDSP,DPlLOT,LSPlLOT,TD 

IP(NINT.GT,0)  PRINT  26 

TsX*ZsO • 0 

THETA*0 • 5*PI 

V*V° 

COST=CDSL+CDSBAG 

MT=MST 

—►2  CALL  TRAJEQN(TfV»THeTAtX»Z*RHO»CDSTfMTtDTtG*ALT*DV) 

VX*V»SIN(THETA) 

TRAJANGsTHETA»180f/PI 
VZ*V#COS (THETA ) 

IC0UNT*IC0UNT*1 

altmz=alt*z 

IF!(IC0UNT,EQ,NINT)  Print  19,t» ALTMZ»TRAUANG,TRAUANG*XfZ»V*VX,VZ 
IF'(ICOUNT.EQ.NINT)  iCOUNT*Q 

IFKSQRTt (VO#T»X)*(VO*T-X)*Z»Z) •LT.DISTANC)  GO  TO  2 
I  F*(  D I  ST  ANC  •  GT  *  LST  AT  1 C )  GO  TO  3 
T1  *T 

TRAJlsTRAJANG 

X1*X 

Zl=Z 

V1*V 

DISTANC=LSTATIC*LSS*0.5*DNOT*LRXBR 

IF  (DPILOT *GT #0*0>  OISTANCsLSTATIC+LSPILOT  +  o*5«»DPILOT 

GO  TO  2 

3  IFKDPILOT)  7,7,4 
A  ISNATCHa-1 

cost*cdsl*cdsbag*cosp 

5  IFKT-TD)  6,14.14 

— >6  CALL  TRAJEQN(T » V* THETA, X,Z,RhQ* COST ,MT»DT *G* ALTtDV) 
TRAJANG*THETA*l8Q./Pl 
VX=V*SIN(THETA> 

VZ=V*COS( THETA) 

I  COUNT* I  COUNT* 1 
AL'TMZ  =  ALT*Z 

IF(ICOUNT.EQ.NINT)  PRINT  19,T»ALTMZ,TRAUAN6,TRAJANG»X,Z*V»VX,VZ 
I F I <  I COUNT • EQ*NINT )  ICOUNT»0 
GO  TO  5 

7  I $NATCH= 1 
TRCA=T 

PRINT  20 , T1 , TRAJl ,X1,Z1*V1,T , TRAJANG, X , Z , V 
RETURN 

8  I F’(  IExTRAC)  9,9,13 

9  READ  17, LENGTH, CDSBAG,COSEX,TD 
PRINT  24, LENGTH, CDSBAG,CDSEX, TO 
IF(NINT.GT.O)  PRINT  26 

FIG  30  Computer  Program  Allowing  Six  Degrees  of  Freedom  for 
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ISNATCHs-1 

10  T*X® Zs  0 • 0 

T  HET  A®0 • 5*P I 
TRAJANG®90. 

CDSTsCOSEX 

V»VO 

11  OV®-RHQ*CDST*V*V*DT/ (2,*MST) 

DX=V*DT 

V®V-*DV 

X»X*DX 

T*T*DT 

IC0UNT®IC0UNT*1 

altmz=alt-z 

I  F!(  I  COUNT  , EQ, N1 NT )  PRINT  19* T * ALTMZ * TRA JANG* TRA JANG, X , Z *  V , V 
IFKIC0JNT.EQ.NINT)  ICOUNT®0 
IPKVO#T-X-LENGTH)  11*12*12 

12  C DST* CO SL^CDSBAG^ COSEX 
MT=MST 

T 1  =  T 
*1  =  X 
V 1  ®V 
GO  TO  5 

13  READ  18  *  Rt LENGTH*  TO 

H=  (4.*LSS*R*2.*R*DN0T) /(4#*LSS«’PI*R*DN0T> 

htdnot*h*dnot 

PRINT  25, LENGTH, R,HTDNOT*TD 
IFKN1NT.GT.0)  PRINT  26 
COSEXsCDP*PI*H*H*DNOT*DNOT/4, 

COSBAGsO.O 
I SNATCHFl 
GO  TO  10 

u  if k istatic.lt .0)  print  20,ti#traj1*xi,zi*vi,t»trajang*x*z*v 
IF(ISTATIC.GE.O)  print  21,TlfXl*Vl*T  »trajang*  X*  Z*  V 
IFKIEXTRAC.GT.O)  trca*o.g 
return 

15  FORMAT (212) 

16  FORMAT ( 7F 1 0 • 0) 

17  FORMAT ( 8 F 1 0.0) 

IB  FORMAT (3F10.0) 

19  FORMAT ( 1 X »F 8. 2* 4F 1 1 .2* 11X* 3Fl 1 . 2* 1 IX* FI 1 *2) 

20  FORMAT (//*60X**TlM£ (SEC)  ANGlE (DEG)  X(FT)  Z (FT)  VELOCI TY  (FT 

1/SEC) *»/*  20X**$T AT IC  LINE  STRETCH** 16X,5F11,2/20X**PARACHUTE/PIL0T 
2  CHUTE  DEPLOYMENT* * 3X *5F;11 .2) 

21  F0RMaT(//*60X**TIME(SEC)  ANGlE(DEG)  X (FT)  Z(FT)  VELOCITY (FT 
1/SEC)*, /,20x,*L0AD  OUT  OF  AIRCRAFT* *  1 5x*Fl 1 ,2* 1 IX *F 11 .2* 1 1X*F1 1 .2/ 
220X,*PILOT  chute/extraction  chute  RELEASE  OR**/*20X,*MAIN  PARACHUT 
3E  DISREEF** 13X*5Fl 1 .2) 

22  FORMaT<////*20X**STATIC  LINE*  *,F10.3**  FT**/*20X,*PaRACMUTE  PACK 
1DRAG  AREAs  * ,F1 0 . 3 *  lx *5HFT**2 ) 

23  FORMAT (20X,*PIL0T  CHUTE**/*25X,*0RAG  AREa**,F1 0 *3, 1X,5HFT**2*/,25X 
1  * *01 AMETER*  **Fl0.3**  FT**/*25X**SUSP.  LINES®  **F10.3**  FT**/*20X, 
2* TIME  OF  PILOT  CHUTE  RELEASE*  **F10.2**  SEc**////> 

24  F0RMat<////,20x**RELEAs£  DISTANCE  IN  AIRCRAFT®  **F10.3**  Ft**/*20X 
1*PARACHUTE  pack  drag  AREA®  **F10.3*1X*5HFT**2*/*20X**EXTRACTION  CH 
2UTE  DRAG  AREA®  **Fl0.3*lX*5HFf**H*/*20X**TlME  OF  EXTRACTION  CHUTE 
3RELEASE*  **F10.2**  SEC**////) 

25  FORMaT(////,20X,*RELEASE  DISTANCE  IN  AIRCRAFT*  *,F10.3**  FT**/,20X 
1*REEFING  RATIO®  *  * F 1 0* 3* / * 20X * *REEFED  PROU*  DIAMETER®  **F10.3**  FT 
2**/*20X**TIME  OF  PARACHUTE  DISREEF®  **Fl0.2»*  SEC**////) 

26  FORMAT (5/  *4X,*TIME*,5X,*AlTITUDE*,4X,#SYStEM*,3X,*C.M,  TRAJ,**1QX 

1  * *C *M .  POSITION*, 26X  **C.M  •  VELOCITY** 18X**C.M.**/*26X**ANGL£**6X* 

2  WANGLE*  *80X**ACC£LERATlON**/4X**(SEc)**6X**(FT)**7Xf*(DEG)* 
3* 6x»* (DEG)** I8x** (FT) **32x** (Ft/s£C)** 17X** (FT/SEC/SEC) **/*50X**X* 
4,10X,*Y**10X,*Z*,8X**TOTAL**8X,*X**10X,*Y*,10X,*Z**8X**TOTAL*5/) 

END 
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SUBROUTINE  SNATCH (TRCA.DT) 

COMMON  /CONST/  ALT. PI .G.CDP.DNOT.CDSL.LSS.ML.MP.MSS.MST.NINT 
COMMON  /VARIA8L/  RH0.T.V.THETA.X.Z.UNUSED.UNU5ED2.UNUSED3 
REAL  K.L.LSS.ML.MP,MPBAG.M1,M2.MSS.LRXBR 
ICOUNT*0 

RE AO  5.MPBAG.CDS2.K.LRX9R 
PRINT  7*MPBAG*CDS2*K*LRXBR 
IRNINT.GT.O)  PRINT  9 
M2«MP 

Ml»ML*0.5*M$S 

CAPM2«mP*MPBAG*0,5*MSS 

CAPM1*ML*MSS 

COS1*COSL 

V  l*V 

V2*V 

L«O.0 

— ►  1  CALI  BODIES (Ml .CDSl .CAPM2.CDS2. Vl. V2.L.0T) 

TRAUANG»THETAPl80,/Pl 
VlX*Vl#SlN* THETA) 

VlZ*Vl»COS(THETA) 

I  COUNT*! COUNTS 1 

altmz«alt-z 

IFK I COUNT • ECU N I  NT)  PRINT  6 « T  f  A  L  T  MZ  9  T  R  A  J  A  N  6  .  T  R  A  J  A N G *  X • Z  » V 1 9 V l X t  V 1 Z 
I FK I COUNT. EQ.  N I NT!  I COUNT «0 
IFKL-LSS-LRX8R)  1,2.2 
Z  TLPT 

traul*trajang 

XLPX 

Zl>Z 

V1L*V1 

V2L*V2 

Q»CAPM1/(CAPM1*M2) 

VFMCAPMi*V1*M2*V2)/<CAPM1*M2) 

oeltav-vf-vz 

F Al*RHO*COSl*K  Vl#Vl ♦ VF*VF ) /A , 

FA2*RH0*CDS2*( V2#V2*VF*VF)/4, 

A*l./K 

B*FA1*( 1 •♦Q*2.#V2*Q/DELTAV) *FA2*KQ  ♦2.*V2*Q/DELTAV) 

C*CAPM1* (Q*l • ) /Q*  ( <Q*1.)/Q*DELTAV*D£LTAV*2»*V2*DELTaV)  ♦M2*(DELTAV 
l*0£l-TAV*2.*V2*DEt-TAV) 

PMAX**»B+SQRT  (8*8*C/A) 

TRCApT 

Vl*V2*VF 

m1  kMPa mi  Alice 

COSl«COSL*O.Ol5#cOP*DNOT*ONOT*Pl/4, 

— ►  3  CALti  BODIES (Ml »CDS1 .MPBAG.CDS2. VI. V2.L.DT) 

TRA JANG*THETA*1 80 . /P I 
V1X*V1*5IN< THETA) 

VIZ* V1*C0S ( THETA) 

I COUNT* I COUNT* l 
ALfTMZ»ALT-Z 

IFUICOUNT.EQ.NINT)  PRINT  6.T.ALTMZ.TRAJANG.TRAJANG.X.Z.V1 • VlX.VlZ 
IFKIC0UNT.EQ.NINT)  ICOUNT.O 
IFKL-LSS-LRXBR*0N0T/2. )  3.4.4 

4  V*V1 

PRINT  8.TL*TRAUU*XL.ZL.V1L.V2L.PMAX.VF 
RETURN 

5  FORMAT ( 4F10*  0) 

6  FORMAT  (1X.F8.2.4F1 1.2 .11X.3F1 1.2 .11X.FU.2) 

7  FORMAT (////.20X.*PARACHUTE  PACK  MASS*  *.Fl0.3»*  SLUG**/.20X»*PARAC 
1HJTE  PACK  ANO  PILOT /EXTRACT ION  CHUT E  DRAG  AREA*  *.F10f 3. 1X.5HFT**2 
2/20X.*SPRING  CONSTANT*  **  F 1 0  •  3  • *  LB/ FT* * / • 2 0 X • * LE NG TH  OF  RISERS*  £ 

EXTENSIONS  AND  LOAO  BRIDLE-  F10. 3.*  FT*.////) 

8  FORMAT*//. 50X.*TIME{SEC)  ANGlE^IDEG)  X(FT)  Z(FT)  VELOCITY  1 

1 (FT/SEC)  VEL0CITY2 (FT/SEC) *./.20X**SNATCH*.20X»4Fl 1 .2.2F15.2*//. 
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220X**SNATCH  FORCE*  **F10.0#*  LB*t/*20X**SNATCH  VELOCITY*  *»F10t3* 
3*  FT/SEC*) 

9  FORMAT ( 5/  •4X**TIME*.5X.*ALTlTUDE*t4X,#SYSTEM*,3Xt*C*M.  TRAU.**10X 
\ »*C#M.  POSIT  ION* »26Xf*C*M.  VELOCITY** 18 X**C«M#*t /*26X**ANGLE*  *6X* 

2  *ANGLE*  *80X*#ACCELERATION**/4X**(SEC>**6Xt*(FT)**7X**<DEG>* 
3*  6X** ( DEG) *  * 18X** ( FT ) **  32X**  ( FT/SEC) **  1 7X**  (FT/SEC/SEC)  **/*50X**X* 
4*10X,*Y*f10X**Z**BX**TOTAL**8X**X**10X**Y**10X**Z**8X**TOTAL*5/) 

E  VO 


SUBROUTINE  BODIES < Ml *CDS1 , M2*CDS2* V 1 , V2*L *DT) 

COMMON  /CONST/  ALT *PI *G*CDP*DNOT *CDSL*LSS*ML*MP*M$S*MST *NOUSE 
COMMON  /VARIABL/  RH0*T*V*THETA*X*Z*UNUSED*UNUSED2*UNUSED3 
REAL  Ml  *  M2  *  L 

- ►  CALL  DENSITY <RHO»ALT»Z) 

DTHETA*-G»SIN( THETA >*DT/Vl 

DVl*(G*C0S(THETA)-RH0*CDSi*Vl*Vl/(2.*Ml> >*dt 

DV2* (G*COS (THETA ) -RHQ*CD52»V2*V2/ (2.*M2> ) *dt 

DX*Vl*SiN<TNETA)*DT 

DZ*Vl*COS(TMETA)*DT 

DL*V1*DT-»V2*DT 

THETA*THETA*DTHETA 

VlaVUOVl 

V2=V2*DV2 

X*X*DX 

Z*Z*DZ 

L*L*DL 

T  *T  +  DT 

RETURN 

END 


SUBROUTINE  OPENING (DQ*TRCA*N*F*VOLUMG* I EXTRAC*DTT) 

DIMENSION  F (N) *R£EF(7*10> 

COMMON  /CONST/  ALT *P I  * G*CDP *DNOT*CDSL * LSS*ML* MP  t MSS*M$T* NI NT 
COMMON  /VARIABL/  RH0*T*V*THETA*X*Z*UNUSED*UNUSE02*UNUSED3 
REAL  LSS*ML*MP»MS*MSS 
ICOUNTrO 

DCAPT=DCAPTR*1 */n 

MSaML+MSS^MP 

READ  6»NREEF 

I/KNREEF.EQ.O)  GO  TO  4 

NREEFaNREEF-IEXTRAC 

NR£EFl*NREEF*I 

DO  3  1*1 »NR£EFl 

READ  7#R0*R1»TCD 

TNOTsT 

TOR*TRCA*TCD 

HO*  (4**LSS#RQ+2**R0*DNQT)  /  (4»*LSS*PI*RO*DNOT) 

-HI* (4**L5S*Rl*2«*Rl*DN0f ) / (4i4LSS*P I*R1*DN0T) 

HTDNQT*H1*DN0T 

PRINT  ll*Rl*  HTONOTtTCDtTDR 

IF(NINT.GT.O)  print  12 

Vlj*  (Hi  *Hl  *Hl  ■»H0*H0*H0 )  *DNOT#DNQT*DNOT 

V2^HI*h1*SQRT  (  (LSS*DN0T/2#.»PI/4'#4H1*0N0-T)  #*2*Hl*Hl*0N0T*DNQT/4«  ) 
V3iHQ*H0*SQRT(  ( LSS  +  DNO'T/2Y*Pl/4.-*H0*DNOT)  **2»HO*HO#DNOT*DNOT/4, ) 
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V4*Rl*Rl*SQRT(LSS*LSS»Rl*Rl*DN0T»DN0T/4*> 

V5*R0*R0*SQRT (LSS«LSS-RO*RO*DNOT*DNOT/4. ) 

VOiUME* (Vl*ONOT*DNOf* ( VE»V3»V4*V5) ) *PI/12. 

V0*V 

xo*x 

zo*z 

thetao.theta 

- ►  CALL  FILLTIH (VOLUME* VO  *XO  *Z0  *  THE T AO  *MS* HO  *h1 *N*F*TF> 

F O«0.0 

DT*DCAPTR*TF 
CAPTR«O,0 
DO  1  J*1 *N 

I  COUNT* I COUNT* 1 

captr*captr*dcaptr 

T«TF*CAPTR*TNOT 

CAPT«PI*PI/49*(Hl»Hl*CAPTR*HO*HO*(l#-CAPTR) ) 
DCAPT«PI*PI/4*«(H1*H1-hO*hO)*DCAPTR 

- ►  CALL  CALC (CAPT*TF*DCAPT*DCAPTRf MS*DV*DP*D) 

FRCE*ML# ( G*COS < THETA ) -DV/OT ) 

FO*AMAXl (FRCEtFO) 

TRAJANG*THEtA*180./PI 

VX*V#SIN(TH£TA) 

VZ*V#COS (THETA) 

IFt(NlNT.lT.O)  GO  TO  1 

IF!(  I  COUNT#  LT  .N/20)  GO  TO  1 

ICOUNT=0 

alitmz«alt*z 

ACC***  (G*COS  (THETA)  *OV/DT) 

PRINT  BtTtALTMZ, TRAJANGtTRAUANGfXtZf V*VX*VZ»ACC 

1  CONTINUE 
REEF ( 1  *  I ) *T 
REEF(2,I)*TRAUAnG 
REEF ( 3* 1 ) *X 

REEF ( 4* I >  *Z 
REEF (5* I ) *V 
REEF (6*1) ®FO 
REEF(T.I)*TF 
IF1(NREEF*1-I)  3*3*2 

2  IFt(T  *GE*TDR)  GO  TO  3 
COS*CDP*PI*DNOT*DNOT*Hl*Hl/4, 

COST*COS*COSL 

- ►  CALL  TRAUEQN (T, V* THETA* X*Z*RHO*CDST* MS, Off fG,ALT*OV) 

AL*»G#COS < THETA >  *OV/DTT 

TRAUANG»THETA*l80,/Pl 
VX»V*SIN( THETA) 

VZ«V*COS( THETA) 

ICOUNT*ICOUNT*l 

ALfMZ»ALT*Z 

IF!(ICOUNTfEQ*NlNT>  PRINT  8*T *ALTMZ*TRAJANG*TRAJANG*X*Z* V* VX* VZ*AL 
I  Fl(  I  COUNT  #  EQ  •  N I  NT )  ICOUNT*0 
IFi(T*TDR)  2*3*3 

3  CONTINUE 

PRINT  9*  (REEF(U*l)fJ«l*T> 

IF!  (NREEF.Gf.Q) PRINT  10* < (REEF < J*Ii* J*l*7> *I*Z*NREEF1) 

D3*DV/DT 

RETURN 

4  VOLUME*VOLUMG 
H0*0,0 
Hls2,/PI 

IFI(NINT.GT.O)  PRINT  12 

TNOT*T 

VO*V 

XO»X 

ZO*Z 

THETAOnTHETA 

- ►  CALL  FILLTIM( VOLUME* VO* XOtZO«THETAO»MS*HO*HltN*FtTF) 
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FO^O.O 

dt*ocapt*tf 
capt»o*  0 
DO  5  U»1*N 

ICOUNT«iCOUNT*l 
capt*capt*dcapt 
t*tf*capt*tnot 

►  CALL  CALC(CAPT*TF*DCAPT*DCAPTR*MS*OV*DP*D) 

FRCE=ML* (G*COS < THETA) -DV/DT) 

FO*AMAXl (FRCE.FO) 

TRAJANG*THETA*180#/PI 
VX»V*$IN ( THETA) 

VZpV*COS(TH£TA) 

IFKNINT.LT.O)  60  TO  5 
IFf(lCOUNT.LT.N/HO)  GO  TO’  5 
ICOUNT*0 

altmz«alt»z 

ACC«- <G*COS (THETA) -OV/DT) 

PRINT  S*T * ALTMZt TRAJANG*TRAUaNG*X*Z*V* VX# VZ* ACC 

5  CONTINUE 

PRINT  9*T*TRAJAN6tXfZfV»F0*TF 

D3«DV/0T 

RETURN 

6  FORMATUl) 

7  FORMAT<3FlO.O) 

8  F  ORMA  T  ( 1 X  *  Ffi  #2  »4fl  1  .2  «  11  X  t3fl  I  ,2 1 11 X  *2Fl  1  .  2 ) 

9  F0RMAT(//*6lX**TiME<SEC)  ANGLE  < DEG)  X (FT)  Z(FT)  V(F7/SEC)  F 
1MAXMS)  TF  (SEC)  **/t20Xt*FuLL  OR  REEFED  INFLATION  *»12x*F10,2* 
2F  9#2t3FlO*2f FlO* 0*Fl0t2) 

10  F ORM AT ( 9 ( 58X • F 1 0 * 2  *  F  9 « 2  ♦ 3F 1 0 1 2  *  F 1 0  *  0  *  F 1 0  •  2  •  / ) ) 

11  F0RMaT(////*20X**REEFED  INFLAfI0N*t/*25Xf*REEFfING  RATIO*  **F10.3*/ 
1*25X**REEFE0  PROU.  DIAM,«  *tF10,3**  FT**/*25X.*CUTTER  DELAY"  **F10 
2/3**  SEC  **/*25X**TlME  OF  DISREEF*  **F10.3.*  SEC**////) 

12  FORMAT (5/  *4Xf*TlME**5X**ALTlTUD£**4X»*$YSTEM*f3X**CfM*  TRAJ.*,10X 
1**C«M,  POST T I ON# * 26X t *C  * M  •  VELOCITY** 18X**C.M.**/#26X**ANGLE**6X* 

2  ♦ANGLE*  *80Xf * ACCELERATION** /4x»*  ($EC) **6X**(FT) **  7X»* (DEG)  * 
3*&X** (DEG)**18X**(FT)**3HX**(FT/SEC) *t 17X**(FT/5EC/SEC) **/*50X**X* 
4 « 1 OX » *Y* » 1  OX • *Z*» 8X*«TOTAL** 8X * *X*# 1 OX  * *Y*  *  1 OX * *Z**  8X**TQTAL*5/) 

END 


SUBROUTINE  FTLLTI  M*(  VOLUME  *  VO  #XO  *Z0  *  THETAO  *  MS*  HO  *M1 *N*  VOLOOT  *  TFT 
COMMON  /CONST/  ALT*PI *Gt CDP*DNQT*CD$L*LSS*MU*MP*M$S*MST*N0USE 
COMMON  /VARIA8L/  RHO . T  *  V  *  THETA • X  *Z • UNUSED  *  UNUSE02  *  UNUSE03 
REAL  LSS*MS 
DIMENSION  VOLOOT  (Ni) 

DCAPTR«1*/N 

TFPO* 

DTF*2,0*H1*DNOT/V0 

1  TFPTF*DTF 
V*V0 
x»xo 
z«zo 

THETA*THETAO 
CAPTRsO • 0 

2  DO;  3  1*1  »N 
CAPTR«CAPTR*DCAPTRi 

CAPT*PI#PI/4#*(h1*H1*CAPTR*H0*m0*<1#«CAPTR) ) 
DCAPT»PI*PI/4#»(Hl*HliH0*H0)*DCAPTR 
►  CALL'  CALC (CART *TFfOCAPTiDCAPTR*MS*DV*OPfD) 

C0»0.Q5 
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C=C0*<RHQ/0,002378)*#, 142857 

3  VDLDOT(I>sVM ( l . ♦ 2. 2*C»CAPT"CAPT ) #D*D/4 .*1 . l*C*DP*DP/2 . > 
SJMsVDLDOT ( M ) 

NMlsN-1 

DO  4  J» 1  * NM 1 *2 

4  SJMsSJM^4.*VOLDOT ( J) 

NM2#N*2 

DO  5  Ks2,NM2*2 

5  SJMaSUM^2,#V0lD0T(K) 

V0L-DCAPTR/3.*$UM»PI*TF 

1F!(ABS(V0L^V0LUME) /VOLUME-0,00001)  7*7*6 

6  UTF  =  TF* (VOLUME/ VOL-1  • ) 

GO  TO  1 

7  V*V0 
XsXO 

z*2Q 

THETAsTMETAO 

RETURN 

END 


SUBROUTINE  CALC(CAPT*TF*DCAPT»DCAPTR*M*0V*0P*0) 

COMMON  /CONST/  alt*pi*g*cdp*dnot*cdsl*lss*ml*mp*mss*mst  *NOUSE 
COMMON  /VARIABL/  RH0,T*V*THETA*X*Z*UNUSED*UNUSED2*UNuSED3 
REAL  LSS*M*MA*MI*MT 
DR*2,*DNQT/PI#SQRT(CAPT> 

D®MAXs2.*ONOT/PI 
OPOOT»DNOT/ (PI#SQRT <  C APT ) > 

Ds;(4.*LSS#0P)/ (4*»LSS*2*#0N0T-PI<*0P) 

DDOT* ( <4,»LSS*2.*0NQT-PI*DP) *4t*L$S*DPOOT»4**LSS*DP*PI*DPDQT) /(4*» 
1LSS*2.*DNOT*PI#OP)**2 

MAsPi*RHO*OP*DP*DP*DP«DP/ (32,*QPMAX#DPMAX> 

DMAs5**Pl*RHO/ (32,*DPMAX*DPMAX) *DP*DP»DP*OP»DPOOT«>DCAPT 
S3*SQRT ( (LSS*DNQT/2.»PI*0P/4i > *#2-DP*DP/4. ) 

S31*SQRT (LSS*LSS-D*D/4,> 

Ml=PI*RHO/12.*(DP*DP*OP*DP»DP*SQ*D*D#SQl) 

DMT«PI#RH0/12t#  (3.*DP*DP*DPD0T->DP*DPM  <2.#lSS+DNOT*PT*DP/2#>  *PI*DP 
ID0T/4# ♦DP*DPDQT/2« )  /  ( 2**SQ)  ♦2.#DP#DPD0T»SQ*D<>0*0#DD0T/  ( 4**$Ql )  -2** 
2D»DDQT#SQ1)*DCAPT 
, MT*^*MA*MI 

DTHEt As*G*S in ( theta >*M*DCAPTR*TF/(V*MT> 

COSsCOP#PI*OP*DP/ 4  # ♦CDSL 

OVa(M*G*COS(THETA) /MT-RHO* V* V*CDS/ (2.#MT> >  *DCAPTR*TF-V<MDMI*DMA> 
1/MT 

OX=V;*SIN(  THETA  )*DCAPTR*TF 
DZaVfC0S( THETA )*DCAPTR*TF 
THET  A«TH£TA*DTHET  A 
V«V*DV 
X  *  X  ♦  D  X 
ZaZ*DZ 

-►  CALL  DENSITY(RHO*ALT-Z) 

RETURN 

END 
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SUBROUTINE  INTGRAT(T,Y»TF,NNfPCTERRtETA*TRYl*TRY2,TRY3*WtYDQT*Z*ID 
l*DX»Tlf ISIGNAU 

DIMENSION  Y  (NN) ,YDOT (NN) t TRYl (NN) , TRY2 ( NN) , TRY3 ( NN) ,ETA(NN) ,W(NN) » 
1Z<NN) 

MM»0 
T1=T 

I*IDONE=-l 
I  F!(  ID)  1*1*2 
DT*DX 
GO  TO  12 
DTsTF^Tl 
M*0 

CALL  FORMULA(Y*QT,TRYl *NN»W»YDOT*Z»L) 

IFKL. GT.O)  GO  TO  15 

CALL  FORMULA(Y*0.5*DT*TRY2»NN«W*YOOT*Z*L) 

IF'tL.GT.Q)  GO  TO  15 

CALL  FORMULA (TRY2»0*5*DTtTRY3,NN*WtYD0T *Z»L) 

I Ft(L* GT •  0 )  GO  TO  15 
DO  5  J»1,NN 

ERRlsA8S(TRY3(J)-TRYl (J) ) 

ERR2sAMAXl (ETA ( J) ,PCTERR*ABS ( TRY3 ( J) ) ) 

IF!fERRl-E«R2)  5,5*10 
CONTINUE 
MM*0 

DO  6  K*1,NN 
Y(K)*TRY3(K) 

Tl«Tl*DT 

IFKM. lT.5)  8,9 
M#M+1 
GO  TO  12 
M*0 

DT*2.0#QT 
GO  TO  12 

1  0 

mm=mm*1 

IF!(MM,GT,20)  GO  TO  16 
IMDOnE  *  -1 
DTsDT*0.5 
DO  11  1*1, NN 

11  TRYl (I)*TRY2(I) 

GO  TO  4 

7  IF(TUTF*DT)  3,13,13 

12  IFi(lMDONE)  7,14,14 

13  DX=Ot 
DT=TF-T1 

IF!(DT.EQ,0*)  GO  TO  14 
IMDONE*! 

GO  TO  3 

—*►14  CALL  EMOTION(Y,YDOT*1,ISIGNAl) 

DXsAMAXl (DX,DT) 

RETURN 

15  M-0 
mM=mm ♦ 1 

IF!(MM,GT,20)  go  TO  1 6 
IMOONE*-l 
DT=OT#0 • 5 
GO  To  3 

16  IS1GNAL*1 
PRINT  17 

return 

17  FORMAT (5/, 5X»5H»*****CANN0T  INTEGRATE  OR  ANGLE  OF  ATTACK  LARGE*) 

end 
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SUBROUTINE  FORMULA ( Y *H * Y I 9NN9 W. YDOT *2  *  I  SIGNAL > 

DIMENS1 ONY ( NN) * YDOT (NN) 9  YI (NN) *W(NN) *Z(NN) 9  A  (5) 

A  ( 31  s  A  ( 4)  sH 

A(1)«A<2)-A(5)s0.5»H 

DO  1  J= 1 »  NN 

Z(J)sYDOT(J) 

W  ( J )  «  Y  ( J ) 

1  YI ( J ) *Y ( J ) 

DO  2  K=N4 

CALL  EMOTION  ( Wt  Zf  2t  I  SIGNAL) 

IF(ISIGNaL.GT.O)  return 
C*A(K*1 )*0. 333333333333333 
DO  2  LalfNN 
W(L)«Y(L) ♦A(K)*Z(L) 

^  YI  (L )  «YI  (Lj-'*C*2iL) 

RETURN 

END 


SUBROUTINE  TRAUEQN(T fVtTHETAt^fZtRHOfCDStMtDT tGfALTtDV) 
REAL  M 

- ►  CALL  DENSITY  (RHQ 9  ALT *»Z) 

DY=<e*CQS(THETA)-RHQ*CDS*V*V/ (2.*M) )*DT 
DTMETAs-G*SIN(Th£TA) *DT/V 
QX=V#SIN(THETA) »PT 
DZ=V#COS(THETA)*DT 
V*V*DV 

THETAsTHETA^DTHETA 

X*X*DX 

Z«Z*DZ 

t=t*dt 

RETURN 

END 


SUBROUTINE  DENSITY (RHO9H) 

RMO=0.00237B#EXP (-H/329I6, ) 

IF(H#GT. 15000.)  RH0=0, 002378^1. 07133»EXP(-H/2B593.) 

RETURN 

END 


SUBROUTINE  QYNAMI C ( RHO9UI  9L2 *L3 9 IXX , I YY 9 IZZ9 I XZ 9MI ) 

REAL  IA9 IAZ9 IAZO9 IY 9 IYY9 IXX » IXZ9 IZ9 IZZ * Ll *L29L3 9M8R9ML9MLS9 MR9MRX9 
IMP9MI 

COMMON  XDYNAM/  DNQT 9 X 1 9 X2 9 X3 * X4 9 X59 MBR 9 ML 9 MLS9 MR 9 MR9 MRX 9 1 AZO 9 IZt 
lQl 9 Q2 9  VOLUME  * XNUM 9 XOENOM 

mi=rho#volume 

Xs(XNjM-MI#ai<90NOT)  /  (XDENOM  +  MI) 

LI*X5-X 

L2=-X-Q1#QN0T 

L3=0N0T-X 

I A=0.13195*RH0*Q2*Q2*Q2*DNOT*DNOT*DNQT*L2*l2 

I Y3Mp*L2*L2*MLS* (X~Xl)  «MX-X1) ♦MR*(X2~X) *  (X2*X) ♦MRX* (X3-X) *(X3~X> ♦ 
1M3R*IX4-X)*(X4-X) *ML<*L1*L1 
I Y  Y= I Y ♦  I A 
I XX= I YY 

IAZ=IAZO»RHO/0. 002378 

IZZ=IZ* IAZ 

IXZsO.O 

RETURN 

END 
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^ SUBROUTINE  MOTION (OQtPCTERRtETAtOT) 

DIMENSION  Y(l2)*YD0T<12),ETA<i2)*XlU2)*X2<12)fX3<12)*W(12),A(3*3) 
DIMENSION  B(12).VERTPAR(10*3) 

REAL  Li 

COMMON  /CONST/  ALT*?! *G*CDP*DNQT*CD$L*LSS*ML*Mp*M$$*MST *NINT 
COMMON  /VARIABL/  RHO*T* V*THETA*X*Z*ALPHAL*ALPHAP*Li 
PRINT  8 

READ  7*TST0P*Z$T0P 

T$TOP®TSTOP*T 

IFI(NINT.GT.O)  PRINT  6 

A MARK®!. 0 

NMARK*0 

IVERT®1 

ANG®THETA*180./PI 

10*1 

Y ( 1 ) ®Y (2) ®Y (4) ®Y<6) *Y (8) «Y (9)®Y ( ll ) ®0*O 
Y (3) ®V 

Y(5>®»G*SIN(THETA)/V 
Y (7) »THET  A 
Y  < 10) *X 
Y(12)*Z 

YOOT (4) ®YDOT (6) ®0*  Q 

YOOT (5) »G*G*C05( THETA) *SIN (THETA) /(V*V)*G*SIN (THETA) /(V*V)*DQ 
TF*T*DT 

NUMB® I ABS (NINT) 

1  DO  2  I® 1* NUMB 

- ►  CALL  INTGRAT (T*Y»TFf 12*PCTERR  *ETA*X1 *X2*X3*W* YD0T*B*ID*DX*T1 *K) 

IFKK.GT.O)  RETURN 

- ►  CALL  COSINES(AtY) 

v  o«v 

R3®Y (12) tLi^A (3*3) 

IFi(R3.GT,ZST0P  j  CORR*  (ZSTOP.»RZ)  /  (R3«RZ) 

IFKTl #GT*T$TOP>  C0RR«(TST0P-T)/(T1-T) 

IFKR3.GT.ZST0P.0R.T1.GT.TST0P)  GO  TO  3 
T«T1 

RX»Y(10)*U*A(l*3) 

RY«Y ( 1 1 ) ♦Ll^A (2*3) 

RZPR3 

C1*Y  f 1 ) ♦ Y  <5) 

C2®Y(2)-Y(4I#LI 

VX»C1*A ( 1  * 1 ) ♦C2#A ( 1 #2) *Y  (3) *A (1*3) 

VY»Cl*A(2*l)*C2*A(2f2)>Y(3)*A(2*3> 

VZ*Cl*A(3#l)tC2*A(3»2)tY(3)*A<3*3> 

C3®YD0T  C 1 ) *Y (5) #Y (3) »Y (6) *Y (2) ♦YOOT (5) *L1*Y (A) *Y (6) *Ll 
C4«YD0T(2)*Y(6)*Y(i)*Y(4)^Y(3)-YD0T(4)®Ll*Y(5)»Y(6)*Li 
CSmYOOT (3) ♦ Y (4) *Y  (2) »Y (5) *Y  ( 1 )  •■<  Y (4) *Y (4) ♦Y  <5) *Y (5) )*U 
AX»C3*A (1*1)  +C4*A U  *2) ♦C5*A (1*3) 

AY*C3*A (2*1) *04*4(2*2) ♦C5*A (2*3) 

AZ®C3*A (3*1) *C4*A (3*2) *C5*A (3*3) 

V®SQRT(VX*VX*VY*VY*VZ*VZ) 

AT*SQRT (AX*AX»AY*AY*AZ*AZ> 

I FKV.LT. VO)  AT®*AT 
SYSANGL®AC0S (A (3* 3) ) #1B0*/PI 
TRAUANG®ACOS ( VZ/V) *180*/PI 
IFIUVERT.GT.3)  GO  TO  15 

12  IFK  ( ABS  (SYSANGL  )  ""ABS  (ANG) )  *AMARK*GE.O.O)  GO  TO  13 
VERTPAR(1*1VERT)«T 
VERTPAR (2* IVERt) ®ALT»RZ 
VERTPAR (3* IVERf) «RX 
VERTPAR <4* IVERf) »RY 
VERTPAR ( 5* I VERf ) ®R!Z 
VERTPAR  <6* I  VERT) ®V 
VERTPAR (7* IVERf) ®VX 
V£RTPAR(8#lVERt)®VY 
VERTPAR (9  * I  VERT ) ®VZ 

FIG  30  Computer  Program  Allowing  Six  Degrees  of  Freedom  for 
Free  Descent  Phase  (Continued) 
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VERTPAR ( 10  *  I VERT) *AT 
ANGaSYSANGL 
GO  TO  15 
13  AMARKa-AMARK 
NMARKaNMARKH 

GO  T0<14,12*14,12,14)  NMARK 
H  XVERTaIVERT*l 
ANGaSYSANGL 
15  ID*-1 

NUM8atA0S(NINT) 

ir!(NuM8*DX.GT.1.0)  NgMBaMAXl  ( 1 .  ♦  1  ,/DX) 

TFPT*DX 

2  CONTINUE 
AUTMRZ*ALT»RZ 

iNNlNT.GTtO)  PRINT  4,T*ALTMRZ,SYSANGt,TRAjANG,RX,RY»RZ,V, VX»VY*VZ 
1  #  AT 
GO  TO  1 

3  T*:(TW)*CORR*T 
R 1 »V ( 1 0 ) *11*4 (1*3) 

R2*Y ( 1 1 ) *L1*A (2,3) 

ClaY ( 1 ) ♦Y (5) *L1 
C2*Y(2)-Y<4)#U 


Vl*Cl*A (1,1) +  C2*A ( 1  *2)  *Y  (3)  *A  (1 ,3) 

V2»Ci*A  (2,1 )  ♦C2»A  (2,2)  *>Y  (3  )  *A (2 ,3) 
V3*C1#A(3»1)^C2»A(3»2) ♦Y(3)*A(3*3) 

ClaYOOT  U)  *Y  (5)  aY  (3)  *Y  (6)  *Y  (2)  ♦yDOT  (5)  *U  tY  <4)  «Y  (6)  #tl 
C4aYQ0T  <2)  ♦Y  (6)  *Y  (  1 )  »Y  (4) *Y (3)  •YOOf (4) *Ll *Y <5) *Y (6) *Ll 
C5PYD0T  (3)  ♦  Y  (4)  4Y  (2)  «*Y  (5s)  *Y  ( 1 )  •»  ( Y  (4)  *Y  (4)  ♦Y  (5)  4Y  (5)  iHA 
Al«C3#A(ltl)  ♦C4*A(1»2)  ♦C54AU*3) 

A2»C3#A (2t 1 ) *C4*A (2,2) *C5*A (2*3) 
A3aC3*A<3,l)*C4*A(3,2)*C54A(3»3) 

RXa;( R1»RX) ttCORR*RX 
RYa(R2»RY) 4C0RR*RY 
RZa (R3»RZ) *CORR*RZ 
VXa  < Vi»VX) *CQRR*VX 
VY*(  V2»VY)  *C0RR<-VY 
VZa ( V3»VZ) *C0RR*VZ 
A^al  A1»»AX)  *CQRR*AX 
AYa(  A2**AY)  *CORR*AY 
AZ«(A3-AZ)*C0RR*AZ 
V*SQRT  C VX*VX+VY*VY  +  VZ*VZ) 

AT«SQRTUX*AX*AY*AY*AZ*AZ) 

IFI(V.LT.VO)  ATa-Aj 


S  YS ANGL* ( ACOS ( A ( 3 » 3) ) 4180, /PI  »S YSANGL ) #CORR*  S YS ANGL 

TRAJANGaACOS ( VZ/V ) *180# /PI 

AITMRZ*ALT-RZ 


IFKNlNTtGf.O)  PRINT  4,T* ALTMrZ,$YSANGL*TRAjAnG»RX»RY»RZ* V* VX, VY* VZ 
1 ,  AT 

PRINT  51 
IYERT1*IVERT-1 
DO  31  Jal , I VERT1 

31  PRINT  5, J, ( VERTPAR ( I ,J) , la 1,10} 

RETURN; 

4  FORMAT!  1XiF8#2*  1  lftll  #2) 

5  FORMAT (5X, 1 1,4  VERT/MIN4,3F12#2,3F10.2,4F12.2) 

51  FORMAT  (//20X,4TIME!(SEC)  ALTITUDE  (FT)  X(fT>  Y  (FT)  Z(FT) 

1  Y(FT/seC)  VX (FT/SIC)  VY (FT/SEC)  VZ(FT/SEC)  A (FT/SEC/SEC) *) 

6  FORMAT (5/  t4X,*TIME*,5X»*ALTltUDE*,4X,*5YSTEM*,3X,4L0AD  TRAj»4,10X 
1 • »L0 AD  POS I TI0N4, 26X , *LOAD  VELOCITY*, 1 8X , *l0AD*, / » 26X , *ANGL£*  »6X , 

2  *ANGLE*  1 80 X, 4 ACCELERATION* t/4X, 4 (SEC) **6X,* (FT)  *»  7X** (QEGja 
3 ,6X,* (DEG) 4t 18X,* (FT ) *,32X,*(FT/SEC) *t 17X,* (FT/SEC/SEC) *»/,S>OX,*X* 
4, 10X,*Y*,  10X»*Z**  8X,*T0f  AL*,8X,4X*,  10X,*Y*,10X,*Z*h8X,*TOTAL*5/) 

7  FORMAT (2F10,0) 

8  FORMAT <5/f5Xt*N0T£*"  POSITIONS, VELOCITIES » ACCELERATIONS, TRAU#  ANGL 
ies  refer  to  load*  previous  results  are*  for  mass  center*) 

ENO 


FIG  30  Computer  Program  Allowing  Six  Degrees  of  Freedom  for 
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U SUBROUTINE  EMOTIONS YrYDOT* ISTOP* ISIGNAL) 

DIMENSION  Y ( 12) *  YDOT (12) *A (3#3) 

REAL  MfMAfMI*MLtMP%MSS*IXXtIYY»lZZtlXZtLl*L2fL3 

COMMON?  /CONST/  ALT»Pl»SfCDP*ONOT»COSUfLSStMUfMPtMSStMST*NOUSE 

COMMON?  / V AR| ABL /  RHO* T • V « THEY A  *  X  *  Z*  ALPHAL* ALPHAP* LI 

- ►  CALL  DENSITY <RH0*ALT-VU2)> 

- ►  CALL  DYNAMIC (RH0tUl*L2»L3*IXX*IYY»IZZtIXZ*Ml) 

MA»U3T5*MI 

M«My*MP*MS$*MA 

R*MA/M 

B»-(ML*MP*MSS)PS/M 

Hl«UZZ«IYY)/IXX 

H2m(IXX-IZZ)/IYY 

H3*(IYY-1XX)/IZZ 

H4*TXZ/IXX 

MSwlXZ/IYY 

H6»IXZ/IZZ 

C«RH0*PI*DN0T»0N0T/8. 

CONOT«C*DNOT 

E*0 • 5*RH0*CDSL 

ULPY  <1)  ♦Y  (5)  *L’i 

VLMY(2)*Y(4)*L4 

UPMY(l) *Y (5|*L2 

VPMY (2) *Y (4) *L2 

VLB«ULPUL4VLPVL4Y (3) *Y (3) 

VP2*UP4UP4VP*VP*Y <3> *Y  (3) 

ALPHALPATAN(*UL/Y(3) ) 

BETAL«ATAN(VL/Y(3)) 

OAMMALpATAN ( VL/SQRT (UL*UL*Y (3) *Y (3) ) ) 

DELTALMATAN (♦UL/SQRT ( VL*VL4Y<3) *Y (3) ) ) 

ALPHAP»ATAN(-UP/Y(3j> 

B£TAP*ATAN(VP/Y(3) ) 

POLANQ<*ACOS  ( Y  (3)  /SORT  (UP*UP*YP*VP*Y  (3)*V  (3)  ) ) 

- ►  CALL  COEFFTS ( ALPHAPfBETAPiPOyANGtCT *CX»CY*CNX*CMY* ISTOP* ISIGNAL) 

IFKI$IGNAL*GT.O)  RETURN 

FX*C*CX*VP2 

FY*C»CY*VP2 

TT*C*CT*VP2 

AER0MX*CDN0T*CMX*VP2 

AEROMY*CDNOT*CMY*VP2 

D»£*Vye 

CALL  COSINES(AtY) 

YDOT (l) "8*4 (3*1) ♦ D*COS ( GAMMAy ) #SIN ( Ay PH AL ) /M*FK/MwR#L2* ( YOOT ( 5) ♦ 

1Y  (4) *Y(G) ) »Y (5)#Y (3) ♦Y(6)#Y (2) 

YDOT(2)»8#A(3.2)»0*COS(DELTAU*SIN(BETAU)/M^FY/M4R*U2#(YOOT(4)« 
1Y(5)*Y<6>  )*Y(4)*Y(3UY(6)#Y(l) 

YOOT (3) *B*A (3*3) *DPC05 (GAMMAy ) *COS( ALPHAL) /M»TT/M*R*L2*IY<4) *Y 14) 
1*Y (5) *y (5) ) »Y  (4) *Y (2) *Y (5) #Y  ( l) 

YOOT (4) p»FY*L3/IXX^AER0MX/IXX*D*C0S (OELTAL ) *SIN (BETAL) *U/IXX-MLPG 
1*A(3*2) #Ll/IXX«MP*G*A (3*2) *L2/IXX*YD0T (6) #hA»Y (5)  *Y  (6)  #Hi,*Y  (4)  *Y  (5 
2)  *H4 

YOOT (5) pFX^LS/I YY*AEROMY/IYY*0*COS (GAMMAL) *5IN ( ALPHAL) *Li/I YY*MLPG 
1*A (3* 1 ) *L1/I YY*MP*G*A (3* 1 ) *L2/iYY*Y (4)  *Y (6) *H2»( Y (4)*Y (4) *Y(6)*Y(6 
2) ) *HS 

YDOT (6) *YDOT (4) *HG»Y (4) #Y (5) *M3»Y (5)*Y (6) #H6 
YDOT(7)«Y(5)*COS(Y(B) )«Y(6)*SIN(Y(8)> 

YOOT (8)*Y (4) ♦TAN(Y(7) ) * (Y (5) 4SIN (Y (8) ) ♦Y(6) *CO$(Y (8) ) ) 
YD0T(9)«(Y(5)*SIN(Y(8))*Y(6)*C0S(Y(8) ) )/C0S<Y(7) ) 

YOOT ( 10) *Y ( 1) *A ( 1 1 1) 4Y (2) *A  1 1 *2) *Y (3) *A  ( 1 >3) 

YOOT  ( 1 1 ) »Y ( 1 ) *A (2* 1 i+i  (2)  *A  (2*2)  *Y  (3)  »A  (2*3) 

YDOT (12) »Y  ( 1 ) *A  (3* 1 ) ♦  Y  (2) *A<3*2> tY(3> *A  (3*3) 

RETURN 

END 


FIG  30  Computer  Program  Allowing  Six  Degrees  of  Freedom  for 
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SUBROUTINE  COSlNES(A,Y) 

01  HENS  I  ON  Y (12) *  A (3*3) 

A  ( 1 *1 ) *C0$ ( Y (7) ) *COS (Y  (9) ) 

A(1*2)«SIN(Y(8))#SIN(Y(7))*C0S(Y(9))-C0S(Y(8))#SIN(Y(9) ) 
A(1*3)*C0S(Y<8) )*SIN(Y<7) )*C0S(Y<9) )>SIN(Y187)«SIN(Y(9) ) 
A (2*1) »COS ( Y (7) ) *$IN (Y (9) ) 

A(2*2)*$IN(Y(8))*SIN(Y(7'))*S|N(Y(9)) ♦COS ( Y (8) ) *COS ( Y (9) ) 
A (2*3) *COS ( Y (8) ) *SIN ( Y (7) ) *SIN ( Y (9) ) »$lN (Y (8) ) *COS ( Y (9) I 
A (3* 1 )  **5IN( Y<7) ) 

A (3*2) *SIN ( Y (8) )*C05(Y (71) 

A (3*3) *COS ( Y (8) ) *C05 (Y (7) ) 

RETURN 

END 


^SUBROUTINE  COEFFTS(ALPHAPfBETAPtPOLANS*CT#CX»CY*CMX*CMY*IPRINT* 
l I SIGNAL) 

ALRHAP0*ALPHAP*57 • 29577951 5 
8ETAP0*BEt  AP*57  f 295779515 
P*P0LANG*57*29S7795l5 
IF!(ABS(ALPHAPD)  .LT#85.)  60  To  1 
IFKIPRINT.EQ.I)  PRINT  2»AUPHAP0 
l SIGNAL*! 

RETURN 

1  IFl(ABS(8ETAPD).LTf85.)  60  TO  3 
iFi(IPRINT.EQ.l)  PRINT  2*BETAPD 
I  SIGNAL* 1 

RETURN 

2  FORMAT (5Xt*ANSLE  OF  ATTACK*  **F6.3**  r  TOO  LARGE*) 

3  I SIGNAL**! 

A*A8S(ALPHAPD> 

IF!(  A«30 .0.)  4*5*5 

A  CX*w6.74E*»03*A*5.5TE»04*A*A«*f  ♦53E«,05*A*AAA*l  .9E»07*A*A*A*A 
CMY*4,  844£***03*An»3e94E*»04*A«-A*l  •O43E*05*A*A*A«1  t32E*07*A*A*A*A 
IFKALPHAPD.GT.Q.O)  GO  TO  6 

cx*»cx 
cmyb-cmy 
GO  TO  6 

5  CXa«0056* ( A»30. 0) ♦ .04 
CMY**. 0044* ( A«*30 • 0  7**034* 

IF!(ALPHAPO*GT*0,O)  GO  JO  6 
CX**CX 

CHY*»CMY 

6  B*ABS(0ETAPO) 

IFS(B*30.0)  7*8*8 

7  CY**6*74E*O3*B*5.57£*04*8*B»I .53E.05*B*8*B*1 ,9E*07*8*8*9*B 
CMX*4*  844E»»03*8«3*94E»O4*B*B4I*  043E*05*8*B*B*1 *32E4074B*8*8*B 
IFi(BETAPO*GT*0.0)8O  TO  9 

CY»*CY 
CMX*»CMX 
G0!  TO  9 

8  CY**O056* {B«30*0) **04 
CMX«»*  0044*  (8«*30*  0)  *«  034 
IFKBETAPD.GT. 0.0)80  TO  9 
CY«~CY 

CHX*»CMX 

9  IF!(P«30.0)  10*11*11 

10  CT*. 647*1. 2E*05*P*9*15EH)4*P*P«7.13E»05*P»P*PM.33E*06*P*P*P*R 
RETURN. 

11  CT*0.62 
RETURN 
ENO 

FIG  30  Computer  Program  Allowing  Six  Degrees  of  Freedom  for 
Free  Descent  Phase  (Concluded) 
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VIII.  INPUT  DATA  CARD  FORMAT 

Input  to  the  computer  program  is  provided  on  punched 
data  cards o  Somewhat  different  data  is  required  for  each  of 
the  four  separation-deployment  systems.  Tables  XX  through 
XXIII  detail  the  data  cards  which  are  required  for  the  four 
separation-deployment  systems.  The  numbers  listed  as  card 
numbers  correspond  to  the  order  and  total  number  of  cards 
which  are  required  for  two-dimensional  trajectories  with  no 
reefed  inflations.  Data  cards  which  must  be  inserted  only  for 
three-dimensional  trajectories  are  denoted  by  7a  and  7b. 

When  reefed  inflations  are  desired,  the  user  must  insert  the 
required  number  of  appropriate  cards  at  the  points  indicated 
in  Tables  XX  through  XXIII. 
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TABLE  XX 


Input  Data 

for  Static 

Line  System 

Card 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

1 

1-50 

5A10 

Cl,  C2,  C3 
C4,  C5 

title  of  Simulation 

2 

1-10 

FIO .  0 

ALT 

ho 

release  altitude 

11-20 

FIO.O 

VO 

— v  _ 

release  velocity  __ _ ^ 

i  3 

~1-10 

FIO.O 

^MST^^ 

mrT) 

mass  of  load  and  packed  \ 
recovery  system  ' 

11-20 

FIO.O 

MP~ 

mL- 

mass  of  parachute 

21-30 

FIO,  0 

MLS 

mass  of  suspension  lines 

3l-4o 

FIO.O 

MR 

mRS 

mass  of  risers 

41-50 

FIO.O 

MRX 

mE ' 

mass  of  riser  extensions 

51-60 

FIO.O 

MBR 

!5b4 

mass  of  load  bridle 

61-70 

FIO.O 

ML 

mass  of  load 

4 

1-10 

FIO.O 

XI 

si 

reference  distance  from 
canopy  skirt  to  suspen¬ 
sion  line  center  of  mass 
in  fully  inflated  con¬ 
figuration 

i,- 

11-20 

FIO.O 

X2 

S2 

reference  distance  from 
canopy  skirt  to  riser 

center  of  mass  in  fully 
inflated  configuration 
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TABLE  XX  (CONT.) 


Input  Data 

for  Static 

Line  System 

Card. 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

S;ymbol 

Comments 

21-30 

F10.0 

X3 

:  s3 

reference  distance  from 
canopy  skirt  to  riser 
extension  center  of  mass 
in  fully  inflated  con¬ 
figuration 

31-40 

F10.0 

x4 

SJL 

reference  distance  from 
canopy  skirt  to  load 
bridle  center  of  mass 
in  fully  inflated  eon- 
figuration 

41-50 

F10.0 

X5 

. 

reference  distance  from 
canopy  skirt  to  load 
center  of  mass  in  fullfl 
inflated  configuration 

51-60 

F10.0 

IZ 

nzzy 

or 

■Oytl) 

moment  of  inertia  about 
Z-axis  due  to  masses  of 
load,  parachute,  and 
suspension  system 

61-70 

F10.0 

IAZO 

I&Z)o 

apparent  moment  of 
inertia  about  Z-axis  at 
mean  sea  level 

5 

1-10 

11-20 

F10.0 

F10.0 

DN0T 

LSS 

Do 

nominal  diameter 

Ls  +  LR 

21-30 

F1C.0 

CDP 

drag  coefficient  of 
parachute  based  on 
projected  area 
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Input  Data 


Card  Column  Format 

Number  Number  Representation 

31-40  FIG, 0 

41-50  F10. 0 


51-6g 

F10.0 

61-70 

FIG .  0 

1 

11 

o 

1 — 1 

1 

Ol 

19 

11-20 

F10.0 

21-30 

F10.0 

31-40 

F10.0 

41-45 

15 

7 


1-10 


FIG.  0 


Mnemon  i  c  S  ymb  o  1  C  omm'e  nt  s 

CDSL  drag  area  of  load 

Q1  ^/D_0  ratio  of  reference  dis¬ 

tance  from  canopy  skirt 
to  parachute  center  of 
volume  in  fully  inflated 
condition  to  D 

o 

Q2  D_ _ ......  ,/D  projected  diameter  ratio 

pmax  in  fully  inflated  con¬ 

figuration 

VOLUME  ~V .  volume  of  fully  inflated 

parachute 

N  number  of  degrees  of 

freedom 

NNN  number  of  steps  used  to 

approximate  inflation 
stages  in  OPENING 

DTI  At  At  in  EXTRACT 

DT2  At  At  in  SNATCH 

BT3  At  At  in  Opening *  m$ti0n 

NINT  number  of  calculations 

made  without  print;  if 
<  0  suppresses  continuous 
output 

allowable  absolute  error 
in  integration  for  U 


ETA(l) 
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TABLE  XX  (CONT. ) 


Input  Data 

for  Static 

Line  System 

Card 

Number 

Column 

Number 

Format 

Re pres  e  ntati on 

Mnemonic 

Symbol 

Comments 

11-20 

'  F10.0 

ETA(2) 

^  2 

allowable  absolute 
in  integration  for 

error 

¥ 

21-30 

F10*  0 

ETA (3) 

^3 

allowable  absolute 
in  integration  for 

error 

Q 

31-40 

F10.0 

ETA (4) 

J 

^4 

allowable  absolute 
in  integration  for 

error 

0 

41-50 

F10.0 

ETA(5) 

^5 

allowable  absolute 
in  integration  for 

error 

X 

7a  1 

51-60 

F10.0 

ETA(6) 

% 

allowab le  ab solute 
in  integration  for 

error 

z 

1-10 

F10 . 0 

ETA(l) 

S- 

allowable  absolute 
in  integration  for 

error 

U 

11-20 

F10.0 

ETA(2) 

'v\2 

allowable  absolute 
in  integration  for 

error 

V 

21-30 

F10.0 

ETA ( 3 ) 

^3 

allowable  absolute 
in  integration  for 

error 

¥ 

these  cards  are  required  in  place  of  card  7  when  six  degrees  of  freedom  are 
allowed,  i.  e.  N  =  6 
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TABLE  XX  (CONT. ) 

Input  Data  for  Static  Line  System 


Card 

Number 

Column 

Number 

Format 

Rep  r  e  s  e  n  t  a  t  i  0  n 

Mnemonic 

Symbol 

Comments 

31-46' 

FIO.  0 

ETA (4) 

^4 

allowable  absolute  error 
in  integration  for  P 

41-50 

F10.0 

ETA(5) 

^5 

allowable  absolute  error 
in  integration  for  Q, 

i — i 

IS- 

51-60 

FIO.  0 

eta(6) 

^6 

allowable  absolute  error 
in  integration  for  R 

O 

1 — 1 

1 

r— 1 

FIO..  0 

ETA( 7 ) 

^7 

allowable  absolute  error 
in  integration  for  B 

11-20 

FIO.  0 

ETA (8) 

J 

00 

a 1 lowab le  ab so lute  e rror 
in  integration  for  (jp 

21-30 

F10.0 

ETA (9) 

^9 

allowable  absolute  error 
in  integration  for  f 

31-40 

FIO.  0 

ETA(IO) 

°^10 

allowable  absolute  error 
in  integration  for  x 

41-50 

FIO.  0 

ETA (11) 

l — 1 

1 — 1 

allowable  absolute  error 
in  integration  for  y 

51-60 

FIO  i  0 

ETA (12) 

^12 

allowable  absolute  error 
in  integration  for  z 

^  these  cards  are 
allowed*  i.e,  N 

required  in  place  of  card 

7  when  six  d 

legrees  of  freedom  are 

191 


TABUS  XX  (CONT.) 

Input  Data  for  Static  Line  System 


Card 

Number 

Column 

Number 

Format 

Rep res  entation 

Mnemonic 

Symbol 

Comments 

8 

1-10 

F10.0 

PCTERR 

allowable  relative  error 

P 

in  integration 

9 

cvi 

12 

ISTATIC 

-1 

3-4 

12 

IEXTRAC 

0 

10 

O 

i — 1 

1 

r-1 

F10.0 

LSTATIC 

^static 

length  of  static  line 

11-20 

F10.0 

CDSBAG 

CDSB 

drag  area  of  main  para¬ 
chute  deployment  bag 

21-30 

F10  •  0 

CDSP 

CDSpilot 

0 

3l-4o 

F10.0 

DPII^T 

So  "pilot 

0 

4i-50 

F10.0 

LSPIL#!' 

~^s . pilot 

0 

51-60 

F10 .0 

TD 

% 

0 

61-70 

>10. 0 

LRXBR 

LE  +  ^Br 

11 

1 

11 

NREEF 

number  of  reefing  lines 

11a  2 

1-10 

E)L0.0 

RO 

Ro 

initial  reefing  ratio 

11-20 

FlO  •  0 

R1 

R1 

final  reefing  ratio 

21-30 

F10.0  ' 

TCD 

-CD 

reefing  cutter  delay 

•  ‘  *  ‘ . 

time 

2 

required  only  when  NREEF  f  0; 

must  have 

NREEF  cards 

of  type  11a 

2 


TABLE  XX  (CONT.) 

Input  Data  for  Static  Line  System 


Card 

Number 

Column' 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

12 

1-10 

F10.0 

TST0P 

^stop 

number  of  seconds  after 
full  inflation  when  sim¬ 
ulation  is  to  terminate 

11-20 

F10. 6 

ZST0P 

zstop 

altitude  loss  at  which 
simulation  is  to  terminate 
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TABLE  XXI 


Input  Bata  for  Static  Line  Deployed  Pilot  Chute  System 


Card 

Number 

Column 
Numb  e  r 

Format 

Re  p  res  entation 

Mnemonic 

Symbol 

Comments 

1-8 

see  Table  XX 

9 

1-2 

12 

ISTATIC 

-1 

3-4 

12 

I EXTRA C 

10 

1-10 

FIO  .  0 

LSTATIC 

—-static 

static  line  length  ■ 

11-20 

F10.0 

CDSBAG 

CDSB 

drag  area  of  main  para¬ 
chute  deployment  bag 

21-30 

F10.0 

CDSP 

C0Spilot 

drag  area  of  pilot  chute 

31-4o 

F10.0 

BPILOT 

^0  pilot 

flat  diameter  of  pilot 
chute 

41-50 

F10.0 

LSPILOT 

'-s  pilot 

length  of  suspension 
lines  of  pilot  chute 

51-60 

F10.0 

TB 

S 

time  at  which  coasting 
period  ends;  if  no  coast¬ 
ing  period,  =  0 

61-70 

:  F10.0 

LRXBR 

0 

11 

O 

1 — 1 

1 

1 — 1 

FIO .  0 

MPBAG 

mPb  ' 

mass  of  pilot  parachute 
and  main  parachute  de¬ 
ployment  bag 

O 

OJ 

J 

1 — 1 

1 — 1 

F.10 . 0 

CDS  2 

cnSTT 

drag  area  of  pilot  chute 

and  main  parachute  de¬ 
ployment  bag 
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TABLE  XXI  (CONT.) 

Input  Data  for  Static  Line  Deployed  Pilot  Chute  System 


Card 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

21-30 

F10.0 

K 

-k- - 

spring  constant  of  sus¬ 
pension  system 

31-^0 

F10.0 

LRXBR 

R;  +  '• 

12 

1 

11 

NREEF 

number  of  reefing  lines 

12a1 

1-10 

FIO.  0 

RO 

Ro 

initial  reefing  ratio 

11-20 

F10.0 

Rl 

R1 

final  reefing  ratio 

21-30 

F10.0 

TCD 

^CD 

reefing  cutter  delay 
time 

13 

1-10 

F10.0 

TST0P 

^stop 

number  of  seconds  after 
full  inflation  when  sim¬ 
ulation  is  to  terminate 

11-20 

F10.0 

ZSTj^P 

zstop 

altitude  loss  at  which 
simulation  is  to  terminate” 

1  required  only  when  NREEF  &  0; 

must  have 

NREEF  cards 

of  type  12a 
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TABLE  XXII 


Input  Bata  for 

Extraction 

Parachute 

System 

Card 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

1-8 

see  Table  XX 

9 

1-2 

12 

ISTATIC 

+1 

3-4 

12 

IEXTRAC 

0 

10 

1-10 

F10.0 

LENGTH 

L 

distance  load  travels 
in  aircraft 

11-20 

F10.0 

CDS  BAG 

CDSB 

drag  area  of  main  para¬ 
chute  deployment  bag 

21-30 

F10.0 

CDSEX 

CDSex 

drag  area  of  extraction 
parachute 

31-40 

F10.0 

TD 

V 

time  at. which  coasting 
period  ends;  if  no 
coasting  period,  =  0 

11 

1-10 

FI  0,0 

MFBAG 

“pb 

mass  of  extraction  para¬ 
chute  and  main  parachute 
,,  deployment  bag  f' 

11-20 

F10.0 

CDS  2 

CDSII 

drag  area  of  extraction 
parachute  and  main  para¬ 
chute  deployment  bag 

21-30 

■  F10.0 

E 

k 

spring  constant  of  sus¬ 
pension  system 

31-40 

F10.0 

LRXBR 

L:  +  LBr 
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TABLE  XXII  (CONT.) 

Input  Data  for  Extraction  Parachute  System 


Card 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

12 

12a1 

1 

11 

NREEF 

number  of  reefing  lines 

1-10 

FIO.O 

RO 

Ro 

initial  reefing  ratio 

11-20 

FIO.O 

R1 

R1 

final  reefing  ratio 

21-30 

FIO.O 

TCD 

tCD 

reefing  cutter  delay 
time 

13 

1-10 

FIO.O 

TST0P 

Ltop 

number  of  seconds  after 
full  inflation  when  sim¬ 
ulation  is  to  be  ter¬ 
minated 

11-20 

FIO.O 

ZST0P 

zstop 

altitude  loss  at  which 
simulation  is  to  be 

terminated 


required  only  when  NREEF  4  0;  must  have  NREEF  cards  of  type  12a 


4 


* 


1 
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TABLE  XXIII 

Input  Bata  for  Reefed  Main  Parachute  Extraction  System 


Card 

Number 

Column 

Number 

Format 

Representation 

Mnemonic 

Symbol 

Comments 

1-8 

see  Table  XX 

9 

1-2 

12 

ISTATIC 

+1  v  ;)  ;  ' 

3-4 

12 

IEXTRAC 

+1 

10 

1-10 

F10.0 

R 

Rex 

reefing  ratio  of  main 
parachute  during  ex¬ 
traction  •  V 

11-20 

F10.0 

LENGTH 

L 

distance  load  travels 

21-30 

FI  0.0 

TD 

^B 

time  at  which  coasting 
period  ends;  if  no  coast¬ 
ing  period,  =0 

li 

1 

11 

NREEF 

number  of  reefing  lines 

— i 

CM 

i — ! 

1-10 

FIG.  G 

RO 

Ro 

initial  reefing  ratio 

11-20 

F10.0 

Rl 

R1 

final  reefing  ratio 

21^30 

F10.0 

TCB 

^CD 

reefing  cutter  delay  time 

13 

1-10 

F10.0 

TST0P 

number  of  seconds  after 
full  inflation  when  sim¬ 
ulation  is  to  terminate 

11-20 

F10.0 

ZST0P 

altitude  loss  at  which 
simulation  is  to  terminate 

1  nreef 

cards  of 

this  type  are  needed 

1 


IX.  SAMPLE  OUTPUT 


Figures  31  through  35  include  portions  of  the  computer 
output  related  to  those  calculations  which  are  presented 
graphically  in  Volume  I  of  this  report.  Portions  of  the 
data  during  the  free  descent  phase  are  omitted  since  the 
intent  of  this  Section  is  only  to  indicate  the  type  of  output 
which  is  produced  by  the  computer  program. 

All  physical  input  data  related  to  the  parachute- load 
system  is  printed  on  the  computer  outputs.  Those  input  values 
which  are  required  for  the  specific  systems  have  been  dis¬ 
cussed  in  Section  VIII.  The  remaining  inputs  are  left  to  the 
discretion  of  the  program  user,  and  the  particular  values 
which  were  used  in  all  of  the  calculations  shown  in  this 
section  are  listed  in  the  following: 

NNN  =  100 
DTI  =  0.001 
DT2  ~  0.001 
DT3  =  0.001 

NINT  -■  50  (determines  print  increments) 

ETA(l)  =  0.001 
ETA (2)  -  0.001 
ETA (3)  =  0.00001 
ETA (4)  =  0.0001 
ETA (5)  -  0.01 
ETA (6)  =  0.01 
PC TERR  =  0.001 

The  above  values  were  chosen  after  experimentation  with  a 
typical  calculation  showed  that  smaller  values  (larger  for  NNN) 
did  not  significantly  alter  the  numerical  results  but  required 
significantly  more  computer  time  for  the  calculations.  These 
values  must,  of  course,  be  estimated  for  the  particular 
application  the  program  user  intends. 
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PARACHUTE-LOAD  SYSTEM (DEPLOYMENT) —  T-10 (STATIC . LINE) 


TRAJECTORY  simulation— T=0*Z«0  is  release  POINT 


RELEASE  CONDITIONS 

ALTITUDE*  6000.  ET 
VELOCITY*  220.00  FT/SEC 


MASSES— slogs 

TOTAL  SYSTEM*  8.343 

LOAD*  7,770 

PARACHUTE*  .364 

SUSP.  LINES*  *075 

RISERS*  .031 

RISER  EXTENSIONS*  0 

LOAD  BRIDLE*  0 

INCLUDED*  7.889 (SEA  LEVEL)  6.574(  6000.  FT) 

APPARENT*  2.958 ( SEA  LEVEL)  2.465C  6000,  FT) 


REFERENCE  DISTANCES  FROM  SKIRT—  FT 


XI* 

11.520 

X2* 

24.170 

X3* 

0 

X4* 

0 

X5* 

27.800 

/PROD. 

inertia— slug  ft**2 

T  XX* 

3339.500 (SEA  LEVEL) 

2994.494 ( 

6000. 

FT) 

I YY* 

3339,500 ( SEA  L£YEL> 

2994.494 ( 

6000. 

FT) 

IZ2* 

0(SEA  LEVEL) 

0< 

6000, 

FT) 

TXZ* 

0 (SEA  LEVEL) 

0( 

6000, 

FT) 

DIMENSIONS—  FT 


DNOT* 

35.000 

SUSP, 

SYSTEM*  ; 

28.000 

LI* 

16, 689 ( SEA 

LEVEL) 

15.291 ( 

6000. 

FT) 

L2* 

-15.766 (SEA 

LEVEL) 

-1 7 , 1 64 ( 

6000. 

FT) 

L3* 

23. 689 ( SEA 

LEVEL) 

22.491 ( 

6000. 

FT) 

YC/DNOT*  .133 

DP/DNOT*  *686 

VOLUME*  3317.500  FT**3 
PARACHUTE  COP*  1.487 

LOAD  DRAG  AREA*  6,000  FT**2 

DEGREES  OF  FREE  DOM*  3 


STATIC  LINE*-  15,000  FT 

PARACHUTE  PACK  DRAG  AREA*  .330  FT**2 

FIG  31  Sample  Output  for  the  T-10  Parachute  with  Static 
Line  System 
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Line  System  (Continued) 


TIME 

(SEC) 


ALTITUDE 

(FT) 


system 

ANGLE 

(DEG) 


C*M*  traj. 
ANGLE 
(OEG) 


M 

o 

U> 


m 

03 

l 

M 

o 

c 

rt 

-O 

C 

rt 

l-h 

O 

rt 

D- 

fl> 

H 

I 

M 

O 

»t# 

03 

n 

03 

o 

tr 

P 

rt 

(D 

* 

h1* 

rt 

or 

CO 

rt 

03 

rt 

H* 

O 


time 

(SEC) 


C.M.  POSITION 

(FT) 

Y 


.05 

5999.96 

89.58 

89.58 

10.96 

.10 

5999.84 

89.16 

89,16 

21.82 

.15 

5999.64 

88.73 

88.73 

32.60 

.20 

5999.37 

88.30 

88.30 

43.29 

.25 

5999.01 

87.86 

87.86 

53.90 

.30 

5998.58 

87.43 

87.43 

64.42 

.35 

5998.(7 

86.99 

86.99 

74.86 

.40 

5997.49 

86.54 

86.54 

85.22 

.45 

5996.83 

86.10 

86.10 

95.49 

.50 

5996.09 

85.65 

85.65 

105.69 

*55 

5995.28, 

85.19 

85.19 

115.81 

.60 

5994.40 

84.74 

84.74 

125.86 

.65 

5993.44 

84.28 

84.28 

135.83 

.70 

5992.41 

83.82 

83.82 

145.72 

.75 

5991.31 

83.36 

83.36 

155,54 

.80 

5990.13 

82,89 

82.89 

165.29 

.85 

5988.89 

82.42 

82.42 

174.97 

.90 

5987.57 

8i,95 

81.95 

184.57 

,95 

5986.18 

81.46 

81.48 

194.11 

1.00 

5984.72 

81,00 

81.00 

203.58 

1.05 

5983.20 

80.53 

80.53 

212.98 

1,10 

5981.60 

8Q.05 

80.05 

222.31 

1.15 

5979.93 

79.56 

79.56 

231.58 

1.20 

5978.20 

79.08 

79.08 

240.78 

1.25 

5976.40 

78,59 

78,59 

249.92 

1,30 

5974.53 

78.11 

78.11 

258,99 

1,35 

5972,59 

77.62 

77.62 

266.00 

1.40 

5970.59 

77.13 

77.13 

276.95 

3  .45 

5968.52 

76.64 

76.64 

285.84 

1  .50 

5966.38 

76.14 

76.14 

294.66 

1  .55 

5964.10 

75.65 

75.65 

303.43 

1.60 

5961.91 

75.15 

75.15 

312.14 

1.65 

5959,58 

74.66 

74.66 

320.78 

STATIC 

:  LINE 

STRETCH 

PARACHUTE/PILOT  CHUTE  DEPLOYMENT 


.04 

.16 

.36 

1.42 

1,93 

2.51 

3.17 

3.91 

4.72 

5.60 

6.56 

7,59 

8,69 

9,87 

11.11 

12,43 

13.82 
15,28 
16.80 

18.40 
20.07 
21.80 
23.60 

25.47 

27.41 

29.41 

31.48 
33.62 

35.82 
38.09 

40.42 


.TOTAL 


218.20 

216.44 

214.73 

1H:« 

209.81 

208.24 

206.71 

205.22 

203.77 

202.34 
200,96 
199.60 
198.28 
196.99 

195.73 
194.51 
193*31 
192.15 
191,01 
189.90 
188.83 

187.78 

186.76 

185.76 
184.80 
183.86 
1 82 , 94 
182.05 
181.19 

180.35 
179,54 
178,75 


C.M.  VELOCITY 
(FT/SEC) 


TIME (SEC)  ANGLE (PEG)  X(FT) 
.81  82.77  167,81 

1.68  74.35  326,12 


ALTITUDE 

(FT) 


SYSTEM 

angle 

(DEG) 


C.M.  TRaJ. 

angle 

(deg) 


C.M.  POSITION 

(FT) 

Y 


218,20 

216.42 

214.67 

mu 

209.59 

207.95 

206.34 
204.75 
203.18 
201.63 
200,11 
198,61 
197.13 

195.67 
194.23 
192.81 
191.41 
190.02 
188.66 
187,31 
185.98 

184.67 

183.37 
182.09 
180.83 
179.58 

178.34 
177.12 
175.92 
174.72 
173.54 

172.38 


1.60 

3.19 

4.77 

6n33 

7,88 

9.42 

10.9b 

12.47 
13.97 

15.47 
16.95 
18.43 
19.89 
21.35 
22.  79 
24.22 
25.65 
27.07 

28.47 
29.87 
31.26 
32.64 
34.01 

35.38 
36.  73 
38.08 
39.42 
40.75 
42.08 

43.39 
44.70 
46.00 
47.30 


Z (FT)  VELOCITY (FT/SEC) 
10.18  195.41 

41.90  178.27 


C.M.  VELOCITY 


TOTAL 


(FT/SEC) 

X  Y 


1,76 


5954,18 


73.53 


73,53  339.80 


45.92  163.54 


156,82 


46.37 


C.M* 

ACCELERATION 

(FT/SEC/SEC) 

TOTAL 


C»M. 

ACCELERATION 

(FT/SEC/SEC) 

TOTAL' 


-212.41 


Jl 


Line  System  (Continued) 


M 


O 


Lo 

M 


C/3 

03 

i 

M 

n> 

o 

c 

rr 

no 

c 

rr 


1.85 

5950.46 

72.67 

72.67 

352.13 

49.54 

145.22 

138,63 

43.25 

•239.40 

1.93 

5947.02 

71.74 

71.74 

362.93 

52.98 

126.42 

120.06 

39.60 

-234.05 

2.01 

5943.88 

70.73 

70.73 

372.24 

56.12 

109.04 

102.93 

35.99 

-211.69 

2.09 

5941.03 

69.60 

69.60 

380,21 

58,97 

93.88 

87.99 

32.73 

-183.70 

2.18 

5938.43 

68.35 

68.35 

387.02 

61.57 

81.08 

75.36 

29.91 

-156.32 

2.26 

5936.04 

66.97 

66.97 

392.87 

63.96 

70.43 

64,82 

27.55 

-132.22 

2.34 

5933.84 

65.46 

65.46 

397.91 

66.16 

61.64 

56.07 

25.60 

-112.07 

2.42 

5931.79 

63.82 

63.82 

402.28 

68,21 

54.39 

48.80 

24,00 

•95.68 

2.50 

5929.86 

62.04 

62.04 

406.09 

70.14 

48,39 

42.74 

22.68 

-82.53 

2.59 

5928.02 

60.15 

60.15 

409.43 

71.98 

43.41 

37.65 

21.61 

-72.07 

2.67 

5926.28 

58,15 

58.15 

412.39 

73,72 

39.26 

33.35 

20,72 

-63.78 

2.75 

5924.59 

56.06 

56.06 

415.01 

75.41 

35.79 

29.69 

19.98 

-57.22 

2.83 

5922.97 

53.89 

53.89 

417.35 

77.03 

32.87 

26.56 

19.37 

—52 .04 

2.92 

5921.39 

51.66 

51.66 

419.45 

78.61 

30.41 

23.85 

18.86 

-47.95 

3.00 

5919.85 

49.39 

49.39 

421.33 

80.15 

28.31 

21.50 

18.43 

•44.72 

3.08 

5918.35 

47.10 

47.10 

423.03 

81.65 

26.53 

I9i44 

18.06 

•42.20 

3.16 

5916.87 

44.81 

44.61 

424.57 

83.13 

25.01 

17.62 

17.74 

-40.22 

3.25 

5915.42 

42.54 

42.54 

425.97 

84,58 

23.70 

16.02 

17.46 

-38.68 

3.33 

5913.99 

40.30 

40. 30 

427.24 

86.01 

22.57 

14,60 

17.21 

-37.48 

TIME(SEC)  AnGLE(DEG)  X(FT) 

Z  (FT) 

V (FT/SEC) 

FMAXCL8) 

TF (SEC) 

FULL! 

OR  REEFED 

INFLATION 

3.33  40.30 

427.24 

86.01 

22.57 

1868, 

1.65 

«-h 

o 

r( 

rr 

or 

n> 

H 

i 

M 

O 


03 

O 

tr 

c 

rt 

CD 

2 

h“ 

rr 

or 

73 

rr 

03 

rr 

H* 

o 


NOTE--  POSITIONS. VELOCITIES. ACCELERATIONS, TRAJ.  ANGLES  REFER  TO  LOAD.  PREVIOUS  RESULTS  ARE  FOR  MASS  CENTER 


TIME 

ALTITUDE 

SYSTEM 

load  thaj. 

LOAD  POSITION 

LOAD  VELOCITY 

LOAD 

(FT) 

ANGLE 

ANGLE 

acceleration 

(SEC) 

(DEG) 

(DEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X  Y 

Z 

TOTAL 

X  Y 

Z 

total? 

3.61 

5895. 33 

24.34 

-15.89 

436.69 

104.67 

23.41 

-6.41 

22.52 

-35.64 

4,09 

5887.29 

-4.11 

-48.48 

431.55 

112.71 

16.37 

-12.26 

10.85 

-22.22 

4.60 

5883.53 

-28.21 

-35.24 

426.95 

116.47 

7.50 

-4.33 

6.12 

-21.06 

5.24 

5877.01 

-39.67 

28.44 

428.44 

122.99 

18.25 

8.69 

16.04 

28.46 

6.27 

5852.81 

-13.64 

47.25 

447.46 

147.19 

37.71 

27.69 

25.60 

16.01 

7.55 

5829.61 

35.41 

38.24 

478,77 

170.39 

19.94 

12.34 

15.66 

-26.59 

8.19 

5816.78 

39.08 

-7.01 

481.65 

183.22 

25.27 

-3.08 

25.06 

28.18 

8,57 

58C6.18 

31.69 

-22.23 

478.74 

193,82 

31.89 

-12.07 

29.52 

24.36 

9.34 

5784.40 

2.88 

-44,87 

463.81 

215.60 

34,24 

-24.16 

24.26 

-15.23 

10,30 

5766,66 

-31.87 

-30.57 

445.47 

233.34 

19.18 

-9.76 

16.52 

-24.46 

10.87 

5755.32 

-36.88 

8.53 

443.73 

244.68 

23.88 

3.54 

23.61 

26.67 

11.39 

5741.64 

-28.01 

27.12 

448.44 

258.36 

32.45 

14.80 

28.88 

22.04 

12.15 

5720.80 

.08 

47.02 

464.63 

279.20 

33,60 

24.58 

22.91 

-13.77 

13.24 

5700.97 

33.63 

19.55 

483.76 

299.03 

19,51 

6.53 

18.38 

24.99 

1A.  01 

5683.22 

30.57 

-20.86 

482.18 

316.78 

29.41 

-10.47 

27.49 

23.14 

14,78 

5662.06 

6.18 

-42,46 

468,68 

337.94 

33.71 

-22.76 

24.86 

-13.97 

15.80 

5642.01 

-27.93 

-33.05 

448.81 

357.99 

20.41 

-11.13 

17.10 

-21.77 

16,31 

5632.23 

-33.91 

.34 

446,00 

367.77 

21.83 

.13 

21.82 

24.80 

16,95 

5616. (  3 

-25,57 

25.93 

450.42 

383,97 

30.86 

13.50 

27.76 

20.03 

17.72 

5595,87 

-.23 

44.60 

465.19 

404.13 

31.95 

22.44 

22.75 

-11.33 

1«.68 

5577.73 

28.32 

27,  1  a 

A82.00 

422.27 

20,06 

9.15 

17.86 

-21.46 

19.26 

5565.99 

3?.  03 

-7.49 

483.73 

434  ^01 

23,64 

-3.08 

23.44 

23.65 

FIG  31  Sample  Output  for  the  T- 10  Parachute  with  Static 
Line  System  (Continued) 


19,77 

5552.81 

24.05 

-25,99 

479.49 

447.19 

30.34 

-13.30 

27.28 

18.89 

20,54 

5533,04 

-.22 

-43.78 

465,16 

466,96 

31.13 

-21.54 

22,48 

-10.25 

21.50 

5514.74 

-27.15 

-25.61 

449.08 

485.26 

20.17 

-8.72 

18.19 

-20,54 

22.07 

5502.91 

-30.55 

7.57 

447.47 

497.09 

23.53 

3.10 

23.33 

22.69 

22.59 

5469.90 

-22,88 

25.78 

451.63 

510,10 

29,75 

12.94 

26.79 

17,99 

23.35 

5470.44 

.26 

42.89 

465.48 

529.56 

30.48 

20.75 

22.34 

-9.33 

24,38 

5450.76 

26.79 

21.38 

481.57 

549.24 

20.15 

7.34 

18.76 

-20.13 

25,05 

5436.32 

27.93 

-13.6? 

482.04 

563.68 

25.18 

-5.93 

24.47 

20.82 

25.56 

5423.10 

18.25 

-29.42 

476.64 

576.90 

30.20 

-14.83 

26.30 

15.55 

26.20 

5407.38 

-.82 

-42.05 

464.96 

592.62 

29.71 

-19,90 

22.06 

-8.40 

27.23 

5367.57 

-25.67 

-19,87 

449,63 

612.43 

20.25 

-6.88 

19.04 

-19.37 

27,87 

5373,66 

-26.86 

12.31 

449.11 

626,14 

24.58 

5.24 

24.02 

20 . 1 1 

28.25 

5364.21 

-20.96 

24.76 

452.44 

635,79 

26.48 

11.93 

25.86 

16.52 

29,02 

5345.26 

-.16 

40.83 

465.20 

654.74 

29.34 

19.18 

22.20 

-7.76 

30.04 

5325,16 

23,87 

21.33 

480.48 

674,84 

20.47 

7.45 

19.07 

-18.38 

30.62 

5313,14 

26.27 

-7.55 

481.75 

686,86 

23.17 

-3,04 

22.97 

19.52 

31.13 

5300.61 

19.58 

-24.70 

477.92 

699.39 

27.97 

-11.60 

25.41 

15.60 

31.90 

5281 .99 

-.20 

-39. B5 

465,60 

718.01 

28,63 

-18.35 

21.98 

-6.90 

32.95 

5261 ,14 

-23.00 

-18.66 

450,79 

738,86 

20.51 

-6.57 

19.44 

-17.79 

33,59 

5247.50 

-24.16 

11.10 

450.17 

752,50 

23.83 

4.59 

23.38 

18,09 

33.98 

5238.17 

-19.06 

23.32 

453,14 

761.83 

27.10 

10.73 

24.89 

15.13 

34,75 

5219.74 

-.69 

38.41 

464.69 

780.26 

28.15 

17.49 

22.06 

-6.30 

35,83 

5)98.00 

21,49 

18.47 

479.53 

802.00 

20.67 

6.55 

19.60 

-16.91 

36.41 

5)85.89 

23.15 

-7.81 

480.51 

814,11 

22.88 

-3.11 

22.67 

17.42 

36,92 

5173,71 

16.99 

-24.05 

476,86 

826.29 

26.76 

-10.91 

24,44 

13.82 

37.69 

5155.71 

-.53 

-37.42 

465,60 

844.29 

27.25 

-16.56 

21.64 

-5.28 

38,91 

5)31.33 

-21.34 

-10.19 

451.31 

868,67 

20.74 

-3.67 

20.41 

16.59 

39.67 

5114.26 

-18.17 

19.09 

453,16 

885.74 

25.12 

8.22 

23.74 

14.35 

40.44 

5096,23 

-3,12 

34.66 

462.77 

903.77 

27.06 

15.39 

22.26 

->.73 

41,21 

5080.27 

12.46 

31.18 

473.94 

919.73 

23.18 

12.00 

19. a* 

-To.  20 

41.91 

5o66,  lb 

19.96 

6.42 

479,19 

933,84 

20.97 

2.34 

20.84 

15.68 

42.68 

5049.03 

15,60 

*20.33 

476.63 

950.97 

24.94 

-8.66 

23.38 

12.70 

43.45 

5031.45 

1.27 

-33.58 

467.20 

968.55 

26,07 

-14.42 

21.72 

-4.19 

44.22 

5015,61 

-12.23 

-27.77 

457,07 

984,39 

22.66 

-10.56 

20.05 

-9.78 

45.11 

4997.15 

-17.98 

2,86 

452.56 

1002,85 

21.73 

1.08 

21.71 

14.24 

46.14 

4974,02 

-6.22 

28.53 

460.06 

1025,98 

25.45 

12.16 

22.36 

6.39 

46.91 

4957.66 

7.00 

29,98 

469,83 

1042.34 

23,59 

11.79 

20.43 

-5.85 

47.80 

4939.29 

15,06 

9.00 

477.02 

1060,71 

21.27 

3.33 

21.00 

-12.11 

48.57 

4922.59 

12.67 

-14.34 

476.02 

1077.41 

23.05 

-5.71 

22.33 

10.53 

49.34 

4905,55 

2.74 

-26.84 

469.23 

1094,45 

24,25 

-10.95 

21.64 

-3.47 

50.11 

4889.45 

-7.25 

-24.42 

461.02 

H10.55 

22.58 

-9.34 

20.56 

-5.76 

51.13 

4867.98 

-10.18 

-3.98 

455.33 

1132,02 

21.63 

-1.50 

21.58 

7.81 

51.90 

4851.19 

-4,73 

8.12 

456.14 

1148,81 

22.12 

3.12 

21. 90 

3.81 

52.79 

4832.20 

6.34 

6.11 

459.18 

1167.80 

20.46 

2.18 

20.34 

•  5,65 

53.50 

4817.91 

11.73 

-8.65 

458.97 

1182,09 

20.82 

-3.13 

20.58 

8.80 

54.01 

4807,15 

11.17 

-19.52 

456,22 

1192,85 

22,73 

-7.60 

21.43 

8.56 

55.03 

4785.22 

.55 

-31.96 

445.04 

1214.78 

24.45 

-12.95 

20.74 

-2.42 

55.80 

4769.81 

-8,06 

-28.61 

435,60 

1230,19 

22.41 

-10.73 

19.67 

-5.84 

56,57 

4754.55 

-9,7o 

-14,67 

429.40 

1245.45 

20.83 

-5.28 

20.15 

-7.17 

57.59 

4733.97 

-.69 

-3.13 

426.76 

1266,03 

19.75 

-1.08 

19.72 

-1.02 

58,36 

4718.97 

7.10 

-9,02 

425.43 

1281.03 

19.81 

-3.11 

19,56 

5,09 

59.13 

4703.59 

9.03 

-21.23 

421.23 

1296.41 

22.07 

-7.99 

20.57 

6.78 

60,41 

4677.09 

-1.43 

-31,95 

407.06 

1322.91 

23.70 

-12.54 

20.11 

-1.62 

61.18 

4661.98 

-7.75 

-26,92 

398.21 

1338.02 

21.82 

-9.88 

19.46 

•5,  45 

62,46 

4636,79 

-4.47 

-8,67 

390,33 

1363.21 

19.97 

-3.01 

19.74 

-3.25 

63.23 

4621.76 

2.69 

-7,64 

388.42 

1378.24 

19.61 

-2.61 

19.44 

1.80 

63,99 

4606,71 

7,38 

-15.86 

385.42 

1393.29 

20.69 

-5.65 

19.90 

5.40 

64.76 

4591.11 

6.13 

“25.20 

379.48 

1408,89 

22,78 

.9.70 

20.61 

4.74 

66,04 

4565.16 

-4.07 

-29.52 

365,12 

1434.84 

22,59 

-11.13 

19.66 

-2.71 

66.81 

4550.17 

-7.38 

-21.83 

357.72 

1449,83 

21.02 

•7.82 

19,51 

-5.18 

67.83 

4530.08 

-3.30 

-10,23 

352.18 

1469,92 

19.92 

-3,54 

19.60 

•2.37 

68.60 

4515.10 

2.71 

-10.14 

349.69 

1484,90 

19.78 

-3.48 

19.47 

1.85 

69.37 

4500.01 

6.29 

-17.22 

346.11 

1499.99 

20.86 

-6.17 

19.92 

4.50 

70,14 

4484.47 

4.87 

-25.00 

340.04 

1515.53 

22.53 

-9.52 

20.42 

3.81 

71,67 

4453.73 

-5.14 

-26.29 

323.83 

1546.27 

21.75 

-9.63 

19.50 

-3.43 

r?  44 

&&38.7& 

■fe  -In 

-18.24 

3i 7  -  62 

1561.24 

20.57 

-6 . 44 

19.53 

-4 . 26 

l  '' 


Line  System  (Concluded) 
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rt 
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rt 
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O 

id 

IB 

H 

t» 

O 

C 

rr 
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SI 
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rt 

Sx 
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rt 

rt 
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290,04 

?H8.93 

-  .3  0 

-20.21 

-1201.74 

5711.07 

19.68 

-6.80 

18.47 

-.01 

29.),  55 

279,47 

-.32 

-20. IB 

-1205.22 

5720.53 

19.68- 

-6.79 

18.47 

-.02 

29]  .07 

270.  ;»1 

-.32 

-20.15 

-1208.69 

5729.99 

19.67 

-6.78 

18.46 

-.03 

29?. 09 

251.10 

-.30 

-20.10 

-1215.62 

5748.90 

19.66 

-6.75 

10.46 

-.01 

293.11 

232,20 

-.26 

-20.11 

-1 222.53 

5767.90 

19.65 

-6.76 

18.46 

-.01 

294.14 

213.30 

-.25 

-20.17 

-1229,46 

5786.70 

19.66 

-6.78 

18.  *5 

.02 

295.16 

1 94.40 

-.29 

-20.21 

-1236.41 

5805.60 

19.66 

-6.79 

18.45 

-.01 

296.19 

1 75.51 

-.32 

-2r.)B 

-1243.36 

5824.49 

1  9.64 

-6.78 

19.44 

-.02 

297.?l 

156.63 

-.31 

-28.1? 

-1250.29 

5843.37 

19.63 

-6,75 

18.43 

-.02 

299.26 

11 9. *8 

-.25 

-20.14 

-1264.11 

5881.12 

19.63 

-6.76 

18,43 

-.01 

300.20 

HO. '-I 

-.27 

-2<j  .19 

-1271.04 

5899.99 

19.63 

-6.78 

18.42 

.01 

30 1 .31 

81.14 

-.30 

-20.19 

-1277.98 

5918.86 

19.62 

-6.77 

18.41 

-.01 

302.33 

62.29 

-.31 

-20.15 

-1284.91 

5937.71 

19.61 

-6.75 

18.41 

-.02 

303.35 

43.44 

-.29 

-20.11 

-1291.81 

5950.56 

19.60 

-6.74 

18.40 

-.01 

305.40 

6.75 

-.24 

-2t>.  1  7 

-1305.62 

5994.25 

19.60 

-6.76 

18.39 

•  01 

305.71 

.00 

-.27 

-20.18 

-1307.74 

6000. on 

19.60 

-6.76 

18.39 

-.01 

T IMF (SEC)  ALTITUDE (FT)  X(FT)  Z ( FT)  V(ET/SEC>  VX<ET/SEC>  VZ(FT/SEC)  A < FT/SEC/SEC> 


1 

VFRT I CAL/ MINI MUM 

3.99 

5888.44 

432.74 

111.56 

18.04 

-12.42 

13.09 

-24.60 

2 

VERTICAL /^T  Mj  MUM 

6.52 

5846,66 

454,84 

153,34 

37.00 

29.60 

22.20 

-16.26 

3 

VE9TICAL/MIMIMUM 

9.34 

57R4.40 

463.81 

215.60 

34.24 

-24.16 

24.26 

-15.23 

PARACHUTE-UOAO  SYSTEM (DEPLOYMENT)-^  -  .S-120  (STATIC  LINE  ♦  PILOT  CnUTg) 


TRAJECTORY  SIMULATI0N--T*0»Z=0  IS  RELEASE  POINT 


release  conditions'"^ 

ALTITUDES  f  6000*  FT 
VELOCITY*  (  220*00  FT/SEC 


MASSES— SLUGS 

TOTAL  SYSTEM*  72*870 

LOAD*  68.386 
PARACHUTE*  2.3«3 

SUSP.  LINES*  .867 

RISERS*  .147 

RISER  EXTENSIONS*  ,280 

LOAD  BRIDLE*  # 

INCLUDED*  41. 143 (SEA  LEVEL)  34.2S7<  6000.  FT) 

APPARENT*  15,429(SEA  LEVEL)  12.058<  6000.  FT) 


REFERENCE  DISTANCES  FROM  SKIRT—  FT 


Xl« 

23.750 

X2® 

50.000 

X3a 

0 

X4* 

56.230 

X5= 

57.210 

MOM. /PROD, 

i n er  r i a --slug  ft# *2 

IXX. 

84525. 147 (SEA  LEVEL) 

74577.364 ( 

6000. 

FT) 

IYY* 

84525. 147 (SEA  LEVEL) 

74577. 364< 

6000. 

FT) 

IZZ* 

0 ( SEA  LEVEL) 

0  ( 

6000. 

FT) 

ixz* 

0(SEA  LEVEL) 

0  ( 

6000. 

FT) 

DIMENSIONS—  FT 

ONOT*  64,000 

SUSP,  SYSTEM*  56,420 


LI* 

25.578 (SEA 

LEVEL) 

23. 0  06  ( 

6000. 

FT) 

12* 

-39 . 888 ( SEA 

LEVEL) 

-42.460 ( 

6000, 

FT) 

L3* 

32. 368 (SEA 

LEVEL) 

29,796 ( 

6000, 

FT) 

yc/dnot* 

.129 

DP/DNOT* 

.648 

VOLUME*  17301.500  FT##3 
PARACHUTE  CDP*  1,786 

LOAD  DRAG  AREA*  18,900  FT#*2 

DEGREES  OF  FREE  DOM*  3 


STATIC  LINE*  15,000  FT 

PARACHUTE  PACK  DRAG  AREA* 7.146FT**? 


FIG  32  Sample  Output  for  the  G-12D  Cargo  Parachute  with 
Static  Line  Deployed  Pilot  Chute  System 


FIG  32  Sample  Output  for  the  G-12D  Cargo  Parachute  with 

Static  Line  Deployed  Pilot  Chute  System  (Continued) 


PILOT  CHUTE 

DRAG  AREA=  18.870  FT*#2 

DIAMETER*  5.6&0  FT 

SUSP.  LINES*  14.750  FT 

TIME  OF  PILOT  CHUTE  RELEASE*  0  SEC 


TIME 

ALTITUDE 

SYSTEM 

C.M,  TRaJ. 

C.M.  POSITION 

C.M,  VELOCITY 

ANGLE 

ANGLE 

(SEO 

(FT) 

(0EG) 

(DEG) 

(FT) 

(FT/SEC) 

X 

Y 

Z 

TOTAL 

X  Y 

Z 

V 

.05 

5999.96 

89,56 

89,58 

10.98 

.04 

219.15 

219.15 

1.61 

.10 

5999.64 

89.16 

89.16 

21,92 

.16 

218.32 

218.30 

3.20 

,15 

5999.64 

86.74 

88.74 

32.81 

.36 

217.51 

217.46 

4.80 

.20 

5999.36 

88.31 

88.31 

43,66 

.64 

216.72 

216.62 

6.38 

.25 

5999,01 

87,89 

07,89 

54,47 

,99 

215.94 

215.79 

7.97 

.30 

5998.57 

87,46 

87,46 

65,24 

1,43 

215.18 

214.97 

9.54 

.35 

5998,05 

87.03 

87.03 

75.97 

1.95 

214. A4 

214.16 

11.  U 

.40 

5997.46 

86.60 

86.60 

86.66 

2.54 

213.72 

213.35 

12.67 

.45 

5996.79 

86.17 

86.17 

97.31 

3.21 

213.02 

212.54 

14.23 

.50 

5996.04 

85.74 

85.74 

107.91 

3.96 

212.33 

211.74 

15.78 

.55 

5995.21 

85.30 

85.30 

118.48 

4.79 

211.66 

210.95 

17.33 

.60 

5994.31 

84.87 

84.87 

129.01 

5,69 

211.00 

210.16 

18.87 

,65 

5993.33 

84.43 

84.43 

139.50 

6.67 

210.37 

209.38 

20.40 

.70 

5992.27 

84.00 

84.0  0 

149.95 

7.73 

209.75 

208.60 

21.93 

.75 

5991.13 

83.56 

83,56 

160.36 

8,87 

209.15 

207.83 

23.46 

,8n 

5989.92 

83.12 

83.12 

170.73 

10.08 

208.56 

207.06 

24.98 

.85 

5988.64 

82.68 

82.68 

181.07 

11.36 

207.99 

206.30 

26.49 

.90 

5987.28 

82,24 

82.24 

191.36 

12.72 

207.44 

205.54 

28.00 

.95 

5985.84 

81.8u 

81.80 

201.62 

14.16 

206.90 

204,78 

29,50 

1.00 

5984.33 

8 }  .  36 

81.36 

211.84 

15.67 

206.38 

204.04 

31.00 

1,05 

5982.74 

80.92 

80.92 

222.02 

17,26 

205.87 

203.29 

32.49 

1.10 

5981.08 

80.48 

80.48 

232,17 

18.92 

205.38 

202.55 

33.98 

1.15 

5979.34 

60.03 

80.03 

242.28 

20.66 

204.91 

201.82 

35.46 

1.20 

5977.53 

79,59 

79,59 

252,35 

22.47 

204.45 

201.09 

36.94 

1.25 

5975.65 

79.15 

79.15 

262.39 

24,35 

204.01 

200.36 

38.41 

1.30 

5973.70 

78.70 

78.70 

272.39 

26.30 

203.58 

199.64 

39.88 

1.35 

5971.67 

78.26 

78.26 

282.36 

28.33 

203.17 

198.92 

41.34 

TIME (SEC) 

ANGLE (DEG)  X (FT ) 

Z  (FT ) 

VELOCITY (FT/SEC) 

STATIC  LINE  STRETCH 

.92 

82.06 

195.68 

13.32 

207.21 

PARACHUTE/PILOT 

CHUTE  1 

DEPLOYMENT 

1.36 

78.13 

285.34 

28.96 

203*05 

PARACHUTE  PACK  MASS*  .303  SLUG 

parachute  pack  ano  pilot/extraction  chute  dras  area*  2*.oi&  ft»*2 

SPRING  CONSTANT*  4777,000  (_B/FT 

LENGTH  OF  RISERS.  EXTENSIONS  and  LOAD  B«IDLE=  8,000  FT 


C  •  M  • 

ACCELERATION 

(FT/SEC/SEC) 

TOTAL 


FIG  32  Sample  Output  for  the  G-12D  Cargo  Parachute  with 

Static  Line  Deployed  Pilot  Chute  System  (Continued) 


TIME  ALTITUDE  SYSTEM  C.M.  TRAJ.  C*M.  POSITION  C.M.  VELOCITY  C*M. 

ANGLE  ANGLE  ACCELERATION 

<SEC)  (FT)  (OEG)  <OEG)  (FT)  (FT/SEC)  (FT/SEC/SEC) 

x  Y  Z  TOTAL  X  Y  Z  TOTAL 


1.41 

5968.92 

77.68 

77.68 

295.26 

31.08 

202.83 

198.16 

43.27 

1.46 

5966.72 

77.24 

77.24 

305.15 

33.28 

202.62 

197.61 

44.76 

1.51 

5964,44 

76.80 

76.80 

315.02 

35,56 

202.42 

197.07 

46,24 

1.56 

5962.09 

76.35 

76,35 

324,86 

37.91 

202.24 

196.53 

47,72 

1.61 

5959.67 

75.91 

75.91 

334.67 

40.33 

202.07 

195.99 

49.19 

1.66 

5957.18 

75.47 

75.47 

344.46 

42.82 

201.91 

195.45 

50.67 

1.71 

5954.61 

75.03 

75.03 

354,22 

45,39 

201.77 

194.92 

52.13 

1.76 

5951.96 

74.58 

74,58 

363.95 

48,04 

201.64 

194.38 

53.60 

1.81 

5949.25 

74.14 

74.14 

373.66 

50.75 

201.52 

193,85 

55.06 

1.86 

5946,46 

73.71 

73.71 

383.34 

53.54 

201.41 

193,32 

56.51 

1.91 

5943.60 

73.27 

73.27 

392.99 

56,40 

201.32 

192.79 

57,96 

1.96 

5940.67 

72.83 

72.83 

402.62 

59,33 

201.24 

192.27 

59.41 

2.01 

5937.66 

72.39 

72.39 

412.22 

62,34 

201.17 

191,74 

60.86 

2.06 

5934.58 

71.95 

71.95 

421.79 

65.42 

201.11 

191.22 

62.30 

2.11 

5931.43 

71.52 

71.52 

431.34 

68,57 

201.07 

190,70 

63.73 

2.16 

5928.21 

71,09 

71.09 

440.86 

71,79 

201.03 

190.18 

65.17 

2.21 

5924.92 

70.65 

70.65 

450.36 

75.08 

201.01 

189.66 

66.59 

2.26 

5921,56 

70.22 

70.22 

459.79 

78.44 

196.84 

185.22 

66,62 

2.31 

5918.22 

69,78 

69,78 

468.99 

81.78 

194.61 

182.62 

67.28 

2.36 

5914,84 

69.33 

69,33 

478.06 

85.16 

192.46 

180.07 

67,94 

2.41 

5911.42 

68.88 

68.88 

487.00 

88.58 

190.38 

177,59 

68.60 

2.46 

5907.98 

68,43 

68.43 

495,82 

92.02 

188.37 

175.17 

69.26 

2.51 

5904.50 

67.97 

67.97 

504.52 

95,50 

186.42 

172.81 

69.92 

TIME  (SEC)  ANGLE(DEG)  X(FT)  Z(FT)  VELOCITY1 (FT/SEC)  VEL0CITY2(FT/SEC> 

SNATCH  ^  2.25  70.31  457,94  77.77  201,00  88,92 

SNATCH  FORCEb  8293.  LB 

SNATCH  VELOCITY*  197.294  FT/SEC 


TIME 

altitude 

system 

C.M.  TRaJ. 

C.M.  POSITION 

C.M.  VELOCITY 

C.M. 

(FT) 

ANGLE 

ANGLE 

ACCELERATION 

(SEC) 

(0E6) 

(OEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X 

y. 

z 

TOTAL 

X  Y 

Z 

TOTAL 

2,61 

5897.78 

67.09 

67.09 

520.82 

102.22 

176.90 

162.94 

68,86 

-136.00 

2.69 

5892.19 

66.33 

66.33 

533.86 

107.81 

165.44 

151.52 

66.42 

•1 60 . 76 

2.78 

5886.83 

65.54 

65.54 

545.92 

113.17 

152.66 

138.96 

63.21 

-171.93 

2.86 

5881,74 

64.71 

64.71 

556,93 

118.26 

139.55 

126.18 

59.61 

-172.34 

2.94 

5876,96 

63.84 

63.84 

566.90 

123.04 

126.82 

113.83 

55.91 

-165.50 

3.02 

5872.48 

62.91 

62.91 

575.88 

127.52 

114.92 

102.31 

52.32 

-154.51 

3.10 

5868.29 

61.93 

61.93 

583.95 

131,71 

104.06 

91.82 

48.97 

-141.70 

FIG  32  Sample  Output  for  the  G-12D  Cargo  Parachute  with 

Static  Line  Deployed  Pilot  Chute  System  (Continued) 

207 


3'»19 

5664.36 

60*88 

60.88 

591,19 

135.64 

94.32 

82.40 

45.91 

•128.57 

3.27 

5860.67 

59.76 

59.76 

597,69 

139.33 

85.68 

74.02 

43.15 

•116.05 

31.35 

5857.21 

58.58 

58.58 

603.53 

142.79 

78.07 

66.62 

40.70 

-104.59 

3.43 

5853.93 

57.32 

57.32 

608.79 

146.07 

71.38 

60.09 

38.54 

-94.38 

3.52 

5850.82 

56.01 

56.01 

613.54 

149,18 

65,53 

54.33 

36.63 

-85.45 

3.60 

5847.87 

54.63 

54.63 

617.84 

152.13 

60.40 

49.25 

34.96 

-77.71 

3.68 

5845.04 

53.20 

53.20 

621.74 

154.96 

55.90 

44.76 

33.48 

-71,07 

3.76 

5842.33 

51.72 

51.72 

625.29 

157,67 

51.96 

40,78 

32.19 

-65,40 

3.85 

5839.72 

50.19 

50.19 

628.52 

160,28 

48.49 

37.25 

31.04 

-60.57 

3.93 

5837.20 

48.63 

48.63 

631.48 

162.80 

45*44 

34.10 

30.03 

-56.48 

4.01 

5834.76 

47.03 

47.03 

634.19 

165,24 

42.75 

31.28 

29.14 

-53.02 

4.09 

5832.39 

45.42 

45.42 

636.68 

167.61 

40,37 

28.76 

28.34 

-50.09 

4.17 

5830.08 

43.79 

43,79 

638.97 

169,92 

38.27 

26.48 

27,62 

-47.62 

TIME (SEC)  ANGLE (DEG) 

X  (FT) 

Z  (FT) 

V (FT/SEC) 

FMAX(L9) 

/tfisecTN 

FULL 

OR  REEFED 

inflation 

4.17  43.79 

638.97 

169.92 

38.27 

11847. 

1.65  , 

NOTE—  POSITIONS*VElOCITIES*ACCElERATIONS.TrAJ.  ANGLES  REFER  TO  load*  PREVIOUS  RESULTS  are  for  mass  center 


TIME 

altitude 

SYSTEM 

LOAD  TRAJ. 

LOAD  POSITION 

LOAD  VELOCITY 

load 

ANGLE 

ANGLE 

ACCELERATION 

(SEC) 

(FT) 

(DEG) 

(OEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X 

Y 

Z 

TOTAL 

X  Y 

z 

TOTAL 

4.39 

5805.53 

36.14 

12.37 

657.59 

194.47 

36,07 

7.73 

35.23 

-39.83 

4.94 

5788.65 

15.23 

-15.45 

657,18 

211.35 

26,84 

-7.15 

25.67 

-25.99 

5.51 

5777.00 

-5.73 

-29.53 

651,96 

223.00 

17.69 

-8.72 

15.39 

-14.76 

6,28 

5766.62 

-24,69 

11.18 

649,22 

233.38 

14.74 

2.86 

14.46 

20.31 

7.05 

5751.71 

-29.03 

33,47 

656,77 

248.29 

30.23 

16.67 

25.22 

23.68 

7.82 

5728.39 

-19.43 

40.41 

674*48 

271.61 

44.86 

29.08 

34.16 

16,10 

8.71 

5697.88 

1.71 

48.30 

704.52 

302.12 

47.52 

35.48 

31.62 

-8.73 

9.48 

5675.72 

19.03 

46.04 

729.55 

324,28 

38.66 

27.83 

26.84 

-16.61 

10.41 

5650.23 

30.80 

17.01 

747.05 

349.77 

31.53 

9.22 

30.15 

23.18 

11.18 

5624.05 

28.73 

-10,09 

747.96 

375.95 

38.42 

-6.73 

37.63 

21.81 

11.94 

5593.62 

16.53 

-27.06 

737,26 

406.38 

44.76 

-20.36 

39.85 

15.02 

12,71 

5564,78 

-.9o 

-36.51 

718.88 

435.22 

42.94 

-25.54 

34.51 

-9.29 

13.86 

5530.06 

-24.38 

-22.21 

695.39 

469.94 

30.77 

-11.63 

28.49 

-19,62 

14.63 

5506.37 

-29.08 

6,78 

692.45 

493,63 

34,27 

4.05 

34.03 

22.40 

15.27 

5482.81 

-23.83 

22.74 

699.06 

517.19 

42,37 

16.38 

39.08 

19.07 

16.55 

5434.17 

2.07 

40.16 

730.61 

565.83 

44.18 

28.50 

33.77 

-8,59 

17.93 

5393.05 

26,31 

19,05 

760,03 

606,95 

31.17 

10.17 

29.46 

-20.35 

18.76 

5365.83 

27.50 

-9.89 

761.61 

634,17 

36.84 

-6.33 

36.29 

21.10 

19.53 

5336.25 

17.78 

-26.55 

751.39 

663.75 

44.12 

-19.72 

39.47 

15.27 

20,55 

5298.47 

-3.45 

-38.05 

726.35 

701.53 

42,22 

-26.02 

33.25 

-8,24 

21.77 

5262.07 

-24.51 

-19.43 

702.33 

737.93 

31.08 

-10.34 

29.31 

-19,13 

22.54 

5237.57 

-27.11 

7.30 

700.05 

762,43 

35.22 

4,47 

34.93 

20.87 

23.18 

5213.77 

-21,20 

22.37 

706.68 

786.23 

41.96 

15.97 

38.81 

17.11 

24.46 

5)66.37 

3.32 

38.05 

736.26 

833,63 

42.01 

25,90 

33.08 

-7,63 

25.74 

5127.96 

24.17 

18.20 

761.15 

872,04 

31.15 

9.73 

29.59 

-18,75 

26,57 

5101.02 

25.79 

-9.30 

762.79 

898.98 

35.98 

-5.81 

35.50 

19.84 

27.34 

5072.18 

17.18 

-25.71 

753.22 

927.82 

42.75 

-18,55 

38.52 

14.53 

28.36 

5034,91 

-2.38 

-36,94 

729.46 

965.09 

41.59 

-25,00 

33.25 

-6,86 

29.70 

4994.31 

-23.46 

-16,78 

704.26 

1005.69 

31.12 

-8,98 

29,79 

-18.18 

FIG  32  Sample  Output  for  the  G-12D  Cargo  Parachute  with 

Static  Line  Deployed  Pilot  Chute  System  (Concluded) 


170,9? 

654.88 

.62 

21.35 

1562.43 

171.43 

640.18 

,7b 

20.89 

1568.11 

171.94 

625.50 

.75 

20.37 

1573.64 

172.46 

610.83 

,60 

19.90 

1579,01 

172,97 

596.17 

.35 

19.56 

1584.27 

173.99 

566,81 

-.27 

19,51 

1594.63 

174,50 

552.11 

-.51 

19.79 

1599.88 

175.02 

537.40 

-.64 

20.22 

1605.23 

175,53 

522.67 

-.64 

20.69 

1610.72 

176. 04 

507,94 

-.51 

21.12 

1616.35 

177.06 

478.49 

.01 

21.57 

1627.88 

177.58 

463,79 

.29 

21.51 

1633,69 

178.09 

449.12 

.52 

21.26 

1639.44 

178.60 

434.46 

.64 

20.88 

1645.08 

179.11 

419.82 

.65 

20,44 

1650.60 

180.14 

390.57 

.32 

19.73 

1661.27 

180.65 

375.94 

.06 

19.60 

1666,49 

181.16 

361.30 

-.20 

19.66 

1671.71 

181.67 

346.65 

-.41 

19.89 

1676.97 

182.18 

331.98 

-.53 

20.24 

1682.32 

183.21 

302.63 

-.44 

21.01 

1693,37 

183.72 

287,95 

-.25 

21.29 

1699.05 

184,23 

273.28 

-.0  1 

21.42 

1704.78 

184.74 

258.63 

.23 

21.38 

1710.53 

185.26 

244.00 

.43 

21.18 

1716.23 

186,28 

214.79 

.56 

20.49 

1727.35 

186.79 

200.20 

.47 

20.14 

1732,75 

187,30 

185.61 

■'  .30 

19.88 

1738.05 

187,82 

171.02 

.08 

19,75 

1743.30 

188.33 

156.43 

-.15 

19,79 

1748.54 

189.35 

127.21 

-.44 

20,25 

1759.16 

189.86 

112.58 

-.46 

20.59 

1764,61 

190.38 

97,95 

-.38 

20,92 

1770.15 

190.89 

83.33 

-.22 

21,16 

1775.78 

191.40 

68.71 

-.02 

21.28 

1781.45 

192.42 

39.52 

.35 

21.11 

1792.80 

192,94 

24.95 

.46 

20.85 

1790.38 

193,45 

10.39 

.48 

20.54 

1803.88 

193.81 

.00 

.43 

20.32 

1807.74 

TIME'(SEC)  ALTITUDE  (FT) 

1  VERTICAL/MINIMUM  5.32  5780.22 

2  VERTICAL/MINIMUM  8.58  5702.00 

3  VERTICAL/MINIMUM  12.58  5569.28 


5345.12 

30.83 

11.22 

28.71 

-.37 

5359.82 

30.69 

10.94 

28.67 

-.57 

5374,50 

30.56 

10.64 

28.64 

-.59 

5389,17 

30.45 

10.36 

28.63 

-.49 

5403,83 

30,39 

10.18 

28.64 

-.31 

5433.19 

30.43 

10.16 

28.68 

.  12 

5447,89 

30.51 

10,33 

28.71 

.39 

5462,60 

30.63 

10.58 

28.74 

.51 

5477,33 

30.74 

10.86 

28.76 

.53 

5492.06 

30.83 

11.11 

28.76 

.45 

5521.51 

30.88 

11.35 

28.72 

•  14 

5536.21 

30.82 

11.30 

28.67 

-.18 

5550.88 

30.72 

11.14 

28.63 

-.36 

5565.54 

30.60 

10.91 

28.59 

—  .48 

5580.18 

30.49 

10.65 

28.57 

-.50 

5609.43 

30.34 

10.24 

28.56 

-.  31 

5624.06 

30.33 

10.17 

28.57 

-  ,  09 

5638.70 

30.36 

10,21 

28.59 

,14 

5653.35 

30.43 

10.35 

28.62 

.32 

5668.02 

30.53 

10.56 

28,64 

.43 

5697.37 

30.70 

11.01 

28.66 

.39 

5712.05 

30.74 

11.16 

28.65 

•  25 

5726,72 

30.74 

11.23 

28.62 

-.10 

5741.37 

30.70 

11.19 

28.58 

-.14 

5756.00 

30.61 

11.06 

28.55 

-.30 

5785.21 

30.41 

10.65 

28.49 

-.40 

5799,80 

30.33 

10.44 

28.48 

-.37 

5814.39 

30.28 

10.30 

20.48 

-.25 

5828,98 

30.27 

10,23 

28,49 

-.09 

5843.57 

30,29 

10.25 

28.50 

.10 

5872.79 

30.42 

10,53 

28.54 

,31 

5887.42 

30.51 

10.73 

28.56 

.33 

5902,05 

30.57 

10.91 

28.56 

.34 

5916.67 

30.61 

11.05 

28.55 

.23 

5931.29 

30.61 

11.11 

28,53 

.09 

5960.48 

30.51 

10.99 

28.46 

••20 

5975,05 

30.43 

10.83 

28.43 

-.33 

5989,61 

30.34 

10.64 

28.41 

-.36 

6000.00 

30.29 

10.52 

28.40 

-.34 

X(Ft)  Z(FT)  V(FT/SEC)  VX(FT/SEC)  VZ (FT/SEC)  A (FT/SEC/SEC) 


653.74 

219 

.78 

20.67 

-9.68 

18.26 

-17.22 

699,97 

298 

.00 

48.31 

35.57 

32.69 

-6.20 

722.16 

430 

.72 

43.85 

-25,52 

35.65 

-8,78 

PARACHUTE-IOAD  system (DEPLOYMENT)—  Q-l 1 A (EXTRACTION)  UNREEFED 


trajectory  simulation— t=o*z*o  is  release  point 


RELEASE  CONDITIONS 

ALTITUDES  2000.  FT 

VELOCITY*  220*00  FT/SEC 


MASSES— SLUGS 

TOTAL  SYSTEM*  116.697 
LOAD*  108.800 
PARACHUTE*  4.156 

SUSP.  LINES*  .643 

RISERS*  1.200 

RISER  EXTENSIONS*  .124 

LOAD  BRIDLE*  .342 

INCLUDED*  158. 613(SEA  LEVEL)  149.262(  2000.  FT) 

APPARENT*  59.480 (SEA  LEVEL)  55*973 (  2000.  FT) 


REFERENCE  DISTANCES  FROM  SKIRT—  FT 

XI®  16.450 

X2=  61.100 

X3=  99.300 

X4=  113.300 

X5*  119.300 


MOM. /PROD.  INERTIA  — Slug  FT**2 


IXX* 

936191. 608(SEA 

LEVEL) 

907066. 874< 

2000. 

FT) 

IYY* 

936191. 608(SEA 

LEVEL) 

907066. 874( 

2000. 

FT) 

IZZ* 

0  ( SEA 

level) 

0< 

2000. 

FT) 

IXZ* 

0  ( SEA 

LEVEL) 

0( 

2000. 

FT) 

DIMENSIONS—  ft 

QNOT*  100.000 

SUSP.  SYSTEM*  95.000 


LI* 

79.081 (SEA 

LEVEL) 

77 .203 ( 

2000. 

FT) 

L2* 

•53. 1 1 9 ( SEA 

LEVEL) 

-5%.997< 

2000. 

ED 

L3= 

59.781 (SEA 

LEVEL) 

57.903 ( 

2000. 

FT) 

yc/dnot* 

.129 

DP/DNOT  = 

.649 

VOLUME*  66700.000  ET##3 
PARACHUTE  CDP*  1.786 

LOAD  DRAG  AREAs  76.800  FT##2 

DEGREES  OF  FREE  OOM*  3 


FIG  33  Sample  Output  for  the  Unreefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System 
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FIG  33  Sample  Output  for  the  Unreefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 


RELEASE  DISTANCE  IN  AIRCRAFT=  15.000  FT 

PARACHUTE  PACK  DRAG  AREAs _ 2.330  FT»»2 

EXTRACTION  CHUTE  DRAG  AREAs  62.200  FT**2 

TIME  of  extraction  chute  Release*  0  SEC 


time 

ALTITUDE 

SYSTEM 

C.M.  TRAJ. 

C.M.  POSITION 

C.M,  VELOCITY 

C.M. 

angle 

ANGLE 

ACCELERATION 

(SEC) 

(FT) 

(DEG) 

(DEG) 

(FT) 

(FT/ SEC) 

(FT/SEC/SEC) 

X 

Y 

Z 

total 

X  Y 

Z 

TOTAL 

.05 

2000.00 

90.00 

90.00 

10.96 

0 

218.57 

218.57 

.10 

2000.00 

90.00 

90.00 

21.86 

0 

217.15 

217.15 

.15 

2000.00 

90.00 

90.00 

32.68 

0 

215.75 

215.75 

.20 

2000.00 

90.00 

90,00 

43.44 

0 

214.37 

214.37 

.25 

2000.00 

90.00 

90.00 

54,12 

0 

213.01 

213.01 

.30 

2000.00 

90.00 

90.00 

64.74 

0 

211.67 

211.67 

.35 

2000.00 

90.00 

90.00 

75.29 

0 

210,34 

210.34 

.^0 

2000.00 

90.00 

90,00 

85.77 

0 

209,03 

209.03 

.45 

2000.00 

90.00 

90.00 

96.19 

0 

207.73 

207.73 

.50 

2000.00 

90,00 

90.00 

106.55 

0 

206.45 

206.45 

.55 

2000.00 

90.00 

90.00 

116.84 

0 

205.19 

205.19 

.50 

2000.00 

90.00 

90.00 

127.07 

0 

203.94 

203.94 

.65 

2000.00 

90.00 

90.00 

137.24 

0 

202,71 

202,71 

.70 

2000.00 

90.00 

90.00 

147.34 

0 

201.49 

201.49 

.75 

2000.00 

90.00 

90,00 

157.39 

0 

200.29 

200.29 

.80 

2000.00 

90.00 

90.00 

'=  167.37 

0 

199.10 

199.10 

.85 

2000.00 

90.00 

90.00 

177.30 

0 

197.92 

197.92 

.90 

2000.00 

90.00 

90.00 

187.17 

0 

196.76 

196.76 

.95 

2000.00 

90.00 

90.00 

196.98 

0 

195.61 

195.61 

1.00 

2000.00 

90.00 

90.00 

206.73 

0 

194.48 

194.48 

1,05 

2000.00 

90.0  0 

90.00 

216.43 

0 

193.36 

193.36 

TIME(SEC)  ANGLE(DEG) 

X(FT) 

Z  (FT) 

VELOClTY(FT/SEC) 

LOAD 

OUT  OF 

AIRCRAFT 

1.07 

219.52 

193,00 

PILOT  CHUTE/EXTRACTION  CHUTE  RELEASE  OR 

MAIN  PARACHUTE  DISREEF  1.07  90.00  219,52  0  193.00 


PARACHUTE  PACK  MASS*  1.432  SLUG 

PARACHUTE  PACK  AND  PILOT/EXTRACTION  CHUTE  DRAG  AREA*  64.520  FT**2 
SPRING  CONSTANT*  910.700  LB/FT 

LENGTH  OF  RISERS*  EXTENSIONS  AND  LOAD  BRIDLE*  28.000  FT 


>  ■  • 


FIG  33  Sample  Output  for  the  Urireefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 


TIME  ALTITUDE 

(SEC)  (FT) 


SYSTEM  C.M.  TRAJ. 

ANGLE  angle 

(DEG)  (OEG) 


C.M.  POSITION 
(FT) 

X  Y  Z 


C.M.  VELOCITY 

(FT/SEC) 

TOTAL  *  T 


C.M. 

ACCELERATION 

(FT/SEC/SEC) 

Z  total 


1.12 

1999,96 

89,52 

89.52 

229.13 

1.17 

1999.84 

89.04 

89.04 

238.67 

1.22 

1999.64 

88.55 

88.55 

248.15 

1.27 

1999.37 

88.06 

88.06 

257.55 

1.32 

1999.01 

87.57 

87.57 

266.88 

1.37 

1998.58 

07.07 

87.07 

276.15 

1.42 

1998.07 

86.57 

86.57 

285.35 

1.47 

1997.48 

86.07 

86.07 

294.48 

1.52 

1996.82 

85.57 

85.57 

303.55 

1.57 

1996.08 

85.06 

85.06 

312.56 

1  .62 

1995.27 

84.55 

84.55 

321.50 

1.67 

1994.38 

84.03 

84.03 

330.38 

1.72 

1993.42 

83.5? 

83.52 

339.19 

1.77 

1992.39 

83.00 

83.00 

347.95 

1.82 

1991.28 

82.48 

8?. 48 

356.65 

1.87 

1990.10 

81.95 

Bl.95 

-  365.29 

1.92 

1988.85 

81,43 

81.43 

373.87 

1.97 

1987.52 

80.9c 

80.90 

382.39 

2.02 

1986.13 

80.37 

80.37 

390.85 

2.07 

1984.66 

79.84 

79.84 

399.26 

2.12 

1983.12 

79.30 

79.30 

407.61 

2.17 

1981.52 

78.77 

78.77 

415.91 

2.22 

1979.84 

78.23 

78.23 

424.15 

2.27 

1978.10 

77.69 

77.69 

432.34 

2.32 

1976.28 

77.15 

77.15 

440.47 

2.37 

1974.40 

76.61 

76.61 

448.56 

2.42 

1972.45 

76.07 

76.07 

456.59 

2.47 

1970.43 

75.53 

75.53 

464.56 

2.52 

1968.36 

74.98 

74.98 

472,44 

2.57 

1966.28 

74.41 

74,41 

480.03 

2.62 

1964.17 

73.84 

73.84 

487.46 

2.67 

1962.02 

73.2b 

73.26 

494.73 

2.72 

1959.84 

72-67 

72.67 

501.85 

2.77 

1957.63 

72.07 

72.07 

508.83 

2.82 

1955.38 

71.46 

71.46 

515.67 

2.87 

1953.09 

70-84 

7-..B4 

522.37 

2.92 

1950.77 

70.22 

70.22 

528.94 

2.97 

1948.41 

69.59 

69.59 

535.38 

3.02 

1946.02 

68.95 

68.95 

541.71 

3.07 

1943.59 

68.31 

68.31 

547.91 

.04 

191.56 

191.56 

'1.60 

.16 

190.16 

190.13 

3.19 

.36 

188.79 

188.73 

4.77 

.63 

187.46 

187.35 

6.34 

.99 

186.15 

185.99 

7.90 

1.42 

184.88 

184.64 

9.44 

1.93 

183.64 

183.32 

10.98 

2.52 

182.44 

182.01 

12*50 

3.18 

181.26 

180.72 

14.01 

3.92 

180.12 

179.45 

15.52 

4.73 

179.00 

178.19 

17.01 

5.62 

177.92 

176.95 

18.50 

6.58 

176.86 

175.73 

19.97 

7.61 

175.84 

174.52 

21.44 

8.72 

174.84 

173.33 

22.89 

9.90 

173.87 

172.15 

24.34 

11.15 

172.92 

170.99 

25.  78 

12.48 

172.01 

169.84 

27.21 

13.87 

171.12 

168.71 

28.63 

15,34 

170.26 

167.58 

30.04 

16.88 

169.42 

166.48 

31.45 

18.48 

168.61 

165.38 

32.84 

20,16 

167.82 

164.29 

34.23 

21.90 

167.06 

163.22 

35,61 

23.72 

166.33 

162.16 

36.98 

25,60 

165.61 

161.11 

38.35 

27.55 

164.92 

160.07 

39.70 

29.57 

164.26 

159.05 

41.05 

31.64 

158.94 

153.51 

41.19 

33.72 

155.90 

150.17 

41.89 

35.83 

153.01 

146.97 

42.58 

37.98 

150*26 

143.89 

43.28 

40.16 

147.63 

140.93 

43.99 

42.37 

145.13 

138.08 

44.69 

44.62 

142.74 

135.33, 

45.39 

46.91 

140.46 

132.68 

46.09 

49.23 

138.28 

130.12 

46,80 

51,59 

136.21 

127.65 

47.50 

53.98 

134.22 

125.27 

48.21 

56.41 

132.33 

122.96 

48,91 

TIME(SEC)  angle (OEq)  X(FT)  Z(fT)  VELOCITYl (FT/SEC)  VElOCITYZ (FT/SEC) 

SNATCH  2.50  75.12  >70.44  31.11  163.78  52.04 

SNATCH  FORCEa  2365.  LB 

SNATCH  VELOCITY*  159.753  FT/SEC 


FIG  33  Sample  Output  for  the  Unreefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 


TIME 

altitude 

system 

C.M.  TRAJ. 

C.M.  POSITION 

C.M,  VELOCITY 

C  •  M  . 

ANGLE 

ANGLE 

ACCELERATION 

(SEC) 

(FT) 

(DEG) 

(DEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X 

Y 

Z 

total 

X  Y 

Z 

TOTAL? 

3.37 

1928.75 

64.45 

64.45 

582.44 

71,25 

113.21 

102.14 

48.83 

-84.95 

3.64 

1915.82 

60.83 

60.83 

607.89 

84,18 

94.35 

82.38 

45.99 

-82.64 

3.91 

1903.74 

56.94 

56.94 

628.28 

96,26 

78.15 

65.50 

42.63 

-72.28 

4.18 

1892.55 

52.79 

52.79 

644.47 

107.45 

65.43 

52,11 

39.57 

-61.52 

4.45 

1882.13 

48.43 

48.43 

657,39 

117.87 

55.81 

41.76 

37.03 

-52.93 

4.72 

1872,35 

43.98 

43.98 

667.78 

127.65 

48.61 

33.76 

34.98 

•46.74 

4.99 

1863.07 

39.57 

39,57 

676.21 

136.93 

43.23 

27.53 

33.32 

-42.51 

5.26 

1854.21 

35.30 

35.30 

683.10 

145.79 

39.16 

22.63 

31.96 

-39.69 

5.53 

1845.69 

31.28 

31.28 

688.78 

154.31 

36.05 

18.72 

30.81 

-37.85 

5.80 

1837.47 

27.57 

27.57 

693.49 

162,53 

33.62 

15.56 

29.80 

—3  6,66 

6.07 

1829.50 

24.21 

24.21 

697.41 

170.50 

31.69 

12.99 

28.90 

-35.89 

6.34 

1821.78 

21.20 

21.20 

700.69 

178.22 

30.11 

10.89 

28.07 

-35.38 

6.61 

1814.27 

18.53 

18,53 

703.44 

185.73 

28.80 

9.15 

27.31 

-35,04 

6.88 

1806.96 

16.17 

16.17 

705,75 

193.04 

27.68 

7.71 

26.58 

•34.80 

7.15 

1799,84 

14.11 

14.11 

707.70 

200.16 

26.7.1 

6.51 

25.90 

-34.62 

7.42 

1792.91 

12.31 

12.31 

709.35 

207.09 

25.84 

5.51 

25.25 

-34.47 

7.70 

1796.14 

10.74 

10.74 

7.1 0  ,‘75 

213.86 

25,07 

4.67 

24.63 

-34.36 

7.97 

1779 .54 

9.38 

9.38 

711.93 

220,46 

24.37 

3.97 

24.04 

-34.25 

8,24 

1773,10 

8.19 

8,19 

712.94 

226.90 

23.72 

3.38 

23.48 

-34.15 

8,51 

1766.81 

7.16 

7.16 

713.80 

233.19 

23.12 

2.88 

22.94 

-34.06 

TIME(SEc)  ANGLE (DEG)  X( FT) 

Z  (FT) 

V (FT/SEC) 

FMAX(LB) 

TF(SEC) 

FULL 

OR  REEFED 

INFLATION 

8.51  7.16 

713.80 

233.19 

23.12 

9331. 

5.41 

NOTE—  POSITIONS* VELOCITIES* ACCELERATIONS *TRAJ.  ANGLES  REFER  TO  LOAD*  PREVIOUS  RESULTS  ARE  FOR  MASS  CENTER 


TIME 

altitude 

SYSTEM 

LOAD  TRAJ. 

LOAD  POSITION 

LOAD  VELOCITY 

LOAD 

ANGLE 

ANGLE 

ACCELERATION 

(SEC) 

(FT) 

(DEG) 

(DEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X 

Y 

Z 

TOTAL 

X  Y 

Z 

TOTAL 

8, 

.72 

1684.68 

4.96 

-25,41 

721.06 

315.32 

26.60 

-11.41 

24.02 

-4, 

,67 

9, 

.27 

1672.07 

-.71 

-28.57 

714.54 

327.93 

25.36 

-12.13 

22.28 

-3, 

,46 

9, 

.91 

1658.44 

-7.08 

-25.87 

707.33 

341.56 

22.64 

-9.88 

20.37 

-6, 

.13 

10, 

.42 

1648.22 

-11.44 

-17,08 

703.19 

351.78 

20.60 

-6.05 

19.69 

-8, 

.77 

11, 

.19 

1632.87 

-15.94 

5.33 

701.47 

367.13 

20,71 

1.92 

20.62 

11. 

,60 

11, 

.96 

1616,08 

-17.35 

25.45 

706.43 

383,92 

25.70 

11.04 

23.21 

12. 

,51 

FIG  33  Sample  Output  for  the  Unreefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System  (Concluded) 


73.46 

1 47 . 45 

5.24 

33.91 

1220,03 

1852,55 

26.93 

15.02 

22.35 

.4.17 

74,48 

124.55 

7.13 

23.80 

1232.90 

1875.45 

24,57 

9.92 

22.48 

-5.44 

75.00 

112.95 

7.23 

17.35 

1237.26 

1887.05 

23.85 

7.11 

22.76 

•5.48 

76.02 

89.34 

5.75 

5.00 

1241.84 

1910.66 

23.33 

2.03 

23.24 

•4.32 

77.04 

65.51 

2.49 

-2.72 

1242.10 

1934.49 

23.20 

-1.10 

23.17 

-1.83 

77.81 

47.81 

-.53 

-3.90 

1240.97 

1952.19 

22.93 

.1.56 

22.87 

-.61 

78.58 

30.31 

-3.44 

-.75 

1240.15 

1969.69 

22.70 

•.30 

22.70 

•2.55 

79.35 

12.82 

-5,75 

6.09 

1240.89 

1987.18 

23.00 

2.44 

22.87 

4.24 

79.86 

1.03 

-6.73 

11.70 

1242.73 

1998.97 

23.66 

4.83 

23.16 

4.85 

79.90 

.00 

-6.77 

12.27 

1243.00 

2000.00 

23.74 

5.05 

23.19 

4.88 

TIME(SEC) 

AlTlTUOEtFT) 

X  (FT) 

Z  ( FT  > 

V  (FT/SEO 

VX (FT/SEC) 

VZ (FT/SEC)  A (FT/SEC/SEC) 

1 

VERTICAL/MINIMUM 

9.14 

1674.95 

716.10 

325.05 

25.77 

-12.19 

22*70 

-3*34 

2 

VERTICAL/MIMIMUM 

14.52 

1550.58 

766.50 

449.42 

39.50 

30.93 

24*57 

3*36 

3 

VERTICAL/MINIMUM 

20.40 

1410.30 

817.25 

589.70 

28.49 

-14.07 

24*77 

-2.90 

PARACHUTE-LOAD  system (DEPLOYMENT) - 


S-UA  (EXTRACTION)  multiple  reefing 


TRAJECTORY  SIMULATION  — T  =  0,/* 0  I S  RELE ASf  POINT 


RELEASE  CONDITIONS 

ALTITUDE*  2000.  FT 

VELOCITY*  169.00  FT /SEC 


MASSES  — SI  UGS 

TOTAL  SYSTEM*  116.697 

LOAD*  106.900 
PARACHUTE*  4.156 

SUSP.  LINES*  .64V 

RISERS*  1.200 

RISER  EXTENSIONS*  .124 

LOAD  BRIDLE*  . 34? 


INCLUDED* 

158,613 (SEA 

levfd 

149.262 ( 

20  00. 

FT) 

APPARENT* 

59,480  c  SF A 

LEVEL > 

55,973 ( 

200  0, 

FT) 

reference 

DISTANCES  FROM  SKIRT--  FT 

XI* 

16.450 

x2* 

61.100 

X  3= 

99.300 

X  4* 

113.300 

*5= 

119.300 

MOM. /PROD. 
IXX* 

INERTIA  — SLUG  FT**'2 
936191. 608 (SEA 

LEVEL) 

907066.874  ( 

2000- 

FT) 

IYY* 

936 19 1.608 (SEA 

LEVEL) 

907066. 874 ( 

2000. 

FT) 

111  = 

20700000.000 ( SEA 

LEVEL) 

20668733,868 ( 

20  00  • 

FT) 

TXZ* 

0  (  SE  A 

LEVEL) 

0  ( 

2000. 

FT) 

DIMENSIONS—  FT 


DNOT* 

100.000 

SUSP. 

SYSTEM* 

95,00  0 

LI* 

79.081 (SEA 

LEVEL) 

7  7 . 2  0  3  ( 

2000* 

FT) 

12= 

-53. 11 9 (SEA 

LEVEL) 

-54,997 ( 

2000. 

FT) 

13= 

59,781 (SEA 

LEVEL) 

57,903  < 

20  00. 

FT) 

YC/ONOT*  .129 

DP/DNOT*  .646 

VOLUME*  66700.000  FT#*3 
parachute  cdp*  1.786 

LOAD  DRAG  AREA*  76.800  FT<*#2 

DEGREES  OF  FREE  DOM*  3 


RELEASE  DISTANCE  IN  AIRCRAFT*  15.000  FT 

parachute  pack  drag  area*  2.330  fj<h*2 

FIG  34  Sample  Output  for  the  Reefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System 
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EXTRACTION  CHUTE  DRAG  AREA*  62.200  FT**2 

time  OF  extraction  CHJTE  RELEASE*  0  SEC 
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FIG  34 


Sample  Output  for  the  Reefed  G-11A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 
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PARACHUTE  PACK  MASS*  1.432  SLUG 

PARACHUTE  PACK  AND  PILOT/EXTRACTION  CHUTE  DRAG  AREA*  64.520  FT**2 
SPRING  CONSTANT*  910. 7OO  I.B/FT 

LENGTH  OF  RISERS*  EXTENSIONS  AND  LOAO  BRIDLE*  28.000  FT 


FIG  34  Sample  Output  for  the  Reefed  G-llA  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 
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time 

ALTITUDE 

system 
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FIG  34  Sample  Output  for  the  Reefed  G-llA  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 


TIME(SEC)  ANGLE(OEG)  X(FT>  Z(FT)  VEtOCITYl (FT/SEC)  VEL0CITY2<F[/SEC) 

SNATCH  3.24  65.95  468.23  51.76  132.90  44,71 
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FIG  34  Sample  Output  for  the  Reefed  G-I1A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 
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FIG  34  Sample  Output  for  the  Reefed  G-X.1A  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 
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60.87 

11.51 

59.78 

482,51 

60.70 

11.18 

59.66 

485.49 

60.53 

10.87 

59.55 

488,47 

60.37 

10.56 

59.44 

491.44 

60.23 

10.26 

59.35 

REEFED  INFLATION 

reefing  ratio*  .637 

REEFED  PROJ.  DIAM.b  63.661  FT 
CUTTER  DELAY*  -0  SEC 

TTuC  ne  ntCOPrfa  1  err 


C.M. 

ACCELERATION 

(FT/SEC/SEC) 

TOTAL 


"53.91 

•54.24 

•54.58 

•54.85 

•55.07 

"55.24 

•55.35 

-55.42 

-55.44 

-55.42 

-55.37 

-55.28 

-55.16 

-55.02 

—54.84 

-54.65 

-54.43 

-54,20 

-53.95 

-53.68 

-44.62 

-43.75 

-42.94 

-42.19 

-41. SO 

—40 .86 

-40.27 

-39.72 

-39.21 

-38.74 

-38.30 

-37.89 

-37,51 

-37.15 

-36.82 

-36.51 

-36.23 

-35.96 

-35.71 

•35*  48 

-35.26 

-35.06 

-34.87 

•34.69 

-34.53 


FIG  34  Sample  Output  for  the  Reefed  G-llA  Cargo  Parachute 
with  Extraction  Parachute  System  (Continued) 


TIME 

altitude 

SYSTEM 

C.M.  TRAJ. 

C.M.  POSITION 

C.M.  VELOCITY 

C.M. 

(SEC) 

(FT) 

ANGLE 

ANGLE 

ACCELERATION 

(DEG) 

(DEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X 

Y 

Z 

TOTAL 

X  Y 

Z 

TOTAL 

9.28 

1503.99 

9.46 

9,46 

802.13 

496.01 

59.25 

9.74 

58.45 

-53,57 

9.48 

1492.61 

8.72 

8.72 

803.96 

507.39 

55.02 

8.34 

54.39 

-52.41 

9.68 

1482.02 

8.03 

8.03 

805.54 

517.98 

51 . 09 

7.14 

50.59 

-50*76 

9.88 

1472.16 

7.38 

7.38 

806.86 

527.84 

47.53 

6,10 

47.  14 

-48.87 

10.08 

1462.97 

6.76 

6.76 

8o8.03 

537.03 

44.37 

5.23 

44.06 

-46.98 

10.28 

1454.36 

6.19 

6.19 

8 09.02 

545.64 

41.57 

4.48 

41. 33 

-45*22 

1 0 .48 

1446.28 

5.66 

5.66 

8o9.86 

553.72 

39.12 

3.86 

38.92 

-43.64 

10.69 

1438.65 

5.16 

5.16 

810.59 

561.35 

36.96 

3.32 

36.01 

*42.25 

1 0 . 89 

1431.43 

4.70 

4.7o 

811.22 

568.57 

35.06 

2.87 

34.94 

-41.05 

11.09 

1424.56 

4.28 

4.28 

011.77 

575,44 

33.39 

2.49 

33.30 

-40.02 

11.29 

1418.01 

3.89 

3.89 

8 12. 24 

581.99 

31.91 

2.16 

31,84 

-39. 13 

11.49 

1411.74 

3.53 

3.53 

812.65 

588,26 

30.59 

1.00 

30 . 54 

-38.38 

11.69 

1405.71 

3.20 

3,20 

813.01 

594,29 

29.42 

1.64 

29.37 

-37.73 

11.89 

1399.91 

2.91 

2.91 

813.32 

600.09 

28.36 

1.44 

28.33 

-37.18 

12.09 

1394.31 

2.64 

2.64 

813.59 

605.69 

27.41 

1.26 

27.38 

-36.70 

12.29 

1388.89 

2.39 

2.39 

813.83 

611.11 

26.55 

1.11 

26.53 

-36.29 

12.49 

1383.64 

2.17 

2.17 

814.04 

616.36 

25.76 

.97 

25.74 

-35. 93 

12.69 

1378.54 

1.96 

1.96 

814.23 

621,46 

25.04 

.86 

25.03 

-35.62 

12.89 

1373.58 

1*78 

1.70 

814.39 

626.42 

24.38 

.76 

24.37 

-35.35 

13.09 

1368.75 

1.61 

1  -6l 

814.54 

631.25 

23.77 

.67 

23.76 

*35.11 

TIME (SEC)  ANGLE (DEG) 

X  ( FT ) 

Z  (FT) 

V (FT/SEC) 

FMAX(LS) 

TF(SEC) 

FULL 

OR  REEFED 

INFLATION 

5.64 

37.18 

681.95 

225.84 

114.59 

3062. 

1.68 

6.60 

28.89 

737.28 

310.65 

94.52 

5667. 

.96 

7.96 

18.34 

782.44 

414.66 

69.20 

6032. 

.72 

13.25 

1.49 

814.64 

635.04 

23.32 

5828. 

4.01 

note—  POSITIONS# VELOCITIES* ACCELERATIONS*TraJ*  angles  refer  To  LOAD*  previous  RESULTS  are  for  mass  center 


TIME 

altitude 

SYSTEM 

LOAD  TRAJ, 

LOAD  POSITION 

LOAD  VELOCITY 

LOAD 

(SEC) 

(FT) 

ANGLE 

ANGLE 

acceleration 

(DEG) 

(DEG) 

(FT) 

(FT/SEC) 

(FT/SEC/SEC) 

X  Y 

Z 

TOTAL 

X  Y 

Z  TOTAL 

13.47 

1282.06 

1.03 

*5.67 

816.17 

717.94 

23.72 

•2.34 

23.60 

1.04 

14.01 

1269.11 

-.18 

-5,72 

814.86 

730.89 

24.04 

-2.40 

23.92 

•  49 

14.78 

1250.66 

-1.88 

-3.85 

813.25 

749.34 

24.08 

-1.62 

24.02 

•1.61 

15.55 

1232.21 

-3.32 

.15 

812.60 

767,79 

24.00 

•  06 

24.00 

-2.62 

16.32 

1213.75 

-4.28 

5.71 

813.52 

786,25 

24.15 

2.40 

24.03 

3.30 

16.83 

1201.43 

-4.56 

9.79 

015.19 

798.57 

24.45 

4.16 

24,10 

3.45 

b 

'  * 

* 

FIG  34  Sample  Output  for  the  Reefed  G-I1A  Cargo  Parachute 
with  Extraction  Parachute  System  (Concluded) 


58.8], 

219.32 

1.04 

14.03  1165.23 

1780.68 

23.65 

5.73 

22.94 

-1.00 

59.32 

207.56 

.40 

13.31  1168.08 

1792.44 

23.59 

5.43 

22.96 

-.45 

59.84 

195.79 

-.28 

13.19  1170.84 

1804.21 

23.60 

5.38 

22.98 

.07 

60.35 

184.01 

-.95 

13.67  1173.64 

1015.99 

23.68 

5.59 

23.01 

.56 

60,86 

172.21 

-1.54 

14.69  1176.61 

1827.79 

23.83 

6.04 

23.05 

1.00 

61.88 

148.52 

-2.34 

17-.89  1183.48 

1851.48 

24.36 

7.48 

23.18 

1.52 

62.40 

136.62 

-2.49 

19.77  1187.54 

1863.38 

24.71 

8.36 

23.25 

1.73 

62.91 

124.68 

-2.45 

21.63  1192.04 

1875.32 

25.08 

9.24 

23.31 

1.70 

63.42 

112.73 

-2.23 

23.33  1196.99 

1887.27 

25.42 

10.07 

23.34 

1.54 

63.93 

] 00.76 

-1.85 

24.76  1202.33 

1899.24 

25.71 

10.76 

23.34 

1.26 

64.96 

76.88 

-.74 

26.51  1213.84 

1923.12 

25.96 

11.59 

23.24 

.57 

65.47 

64.99 

-.11 

26.71  1219.80 

1935.01 

25.91 

11.64 

23.15 

-.  19 

65.98 

53.16 

.5] 

26.44  1225.73 

1946.84 

25.74 

11.46 

23.05 

-.53 

66,49 

41.37 

1.07 

25.70  1231.50 

1958.63 

25.48 

11.05 

22.96 

-.92 

67.00 

29.62 

1.52 

24.55  1237.01 

1970.38 

25.16 

10.46 

22.89 

•1.25 

68.03 

6.20 

1.98 

21.34  1246.96 

1993.80 

24.50 

8.92 

22.82 

-1.55 

68.30 

.00 

1.93 

20.40  1249.16 

2000.00 

24.35 

8.49 

22.83 

-1.52 

TIME<SEC)  ALTITUDE(Ft) 

X  <fT)  Z<FT> 

V(FT/SEC) 

VX(FT/SEC) 

VZ(FT/SEC)  A (FT/sEC/SEC) 

1 

VERTICAL/MINIMUM  13.88  1272.17 

815.17  727.83 

24.00 

-2.43 

23.87 

.46 

2 

VERTICAL/MINIMUM  19.39  1139.43 

836.00  860.57 

26.49 

11.08 

24.06 

1.36 

3 

VERTICAL/MINImuM  25.53  994.69 

882.28  1005.31 

23.56 

2.62 

23.42 

-.10 

PARAChUTF-LOAD  SYSTEM (DEPLOYMENT) —  3-1 1 A (MAIN  PARACHUTE  EXTRACTION)  UNREEFED 


trajectory  simulation— TsOtZ*o  is  release  point 


RELEASE  CONDITIONS 

altitude*  2000.  ft 

VELOCITY*  220.00  FT/SEC 


MASSES— SLUGS 

TOTAL  SYSTEM*  115* 265 
LOAD*  1  OB, SCO 
PARACHUTE*  4.156 

SUSP,  LINES*  ,64? 

RISERS*  1.200 

RISER  EXTENSIONS*  .124 

LOAD  BRIDLE*  .34? 

INCLUDED*  158,613 (SEa  LEVEL )  149,262(  2000,  FT) 

APPARENT*  59,48ft ( SEA  LEVEL)  55.973(  2000.  FT) 


REFERENCE  DISTANCES  FRorsi  skirt—  FT 

XI*  16, 450 

X2*  61.100 

X  3=  99.30  0 

X  4*  113,300 

X5*  119.300 


mom. /prod,  inertia— slug  ft##? 


TXXs 

936191.608 (SEA 

LEVEL) 

90f 066. 874 ( 

2000. 

FT) 

I YY* 

936191. 608(SEA 

LEVEL) 

907066. 874( 

2000, 

FT) 

IZZ* 

20700000. 000(SEA 

LEVEL) 

20658733.868 ( 

2000, 

FT) 

IXZ* 

0  (SEA 

LEVEL) 

0  ( 

2000. 

FT) 

DIMENSIONS—  ft 


DNOT* 

100,000 

SUSP. 

SYSTEM* 

95,000 

LI* 

79,081 (SEA 

LEVEL) 

77, 203 ( 

2000. 

FT) 

L2* 

•53 ,11 9 ( SEA 

LEVEL) 

-54,997 ( 

2000, 

FT) 

L3* 

59.781 (SEA 

LEVEL) 

57.903J 

2000. 

FT) 

YC/DNOT*  ,129 

DP/DNOT*  ,649 

volume*  6670q.ooo  rr##3 
parachute  cop*  i .786 

load  drag  AREAb  76.800  FT##2 

DEGREES  OF  FREE  DOM*  3 


RELEASE  DISTANCE  IN  AIRCRAFT 3  15.000  FT 

REEFING  RATIO*  ,064 


FIG  35  Sample  Output  tor  the  G-1IA  Cargo  Parachute  with 
Reefed  Main  Parachute  Extraction  System 
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FIG  35  Sample  Output  for  the  G-11A  Cargo  Parachute  with 

Reefed  Main  Parachute  Extraction  System  (Continued) 


REEFED  PROJ.  DIAMETER*  9.231  FT 

TIME  OF  PARACHUTE  DISREEF*  4.00  SEC 


time 

ALTITUDE 

SYSTEM  C.M.  TRAJ. 

C.M.  POSITION 

C.M.  VELOCITY 

ANGLE  ANGLE 

(FT/SEC) 

(SEC) 

(FT) 

<0EG>  (OEG) 

(FT) 

X 

Y 

Z 

TOTAL 

X  Y 

z 

.05 

2000.00 

90.00 

90.00 

10.93 

0 

217.23 

217.23 

.10 

2000.00 

90.00 

90.00 

21.73 

0 

214.52 

214,52 

.15 

2000.00 

90.00 

90.00 

32.39 

0 

211.89 

211.89 

.20 

2000.00 

90.00 

90.00 

42.92 

0 

209.31 

209.31 

.25 

2000.00 

90.00 

90.00 

53.32 

0 

206.80 

206.80 

.30 

2000. 00 

90.00 

90.00 

63.60 

0 

204.35 

204.35 

.35 

2000.00 

90.00 

90.00 

73.76 

0 

201.95 

201.95 

.40 

2000.00 

90.00 

90.00 

83.80 

0 

199.61 

199.61 

.45 

2000.00 

90.0  0 

90.00 

93.73 

0 

197.33 

197.33 

.50 

2000.00 

90.00 

90.00 

103.54 

0 

195.10 

195.10 

.55 

2000.00 

90.0  0 

90.00 

113.24 

0 

192.91 

192.91 

.60 

2000.00 

90.00 

90.00 

122.83 

0 

190.78 

190.78 

.65 

2000.00 

90.00 

90.00 

132.32 

0 

188.69 

188.69 

.To 

2000.00 

90*00 

90.00 

141.70 

0 

186.64 

186.64 

.75 

2000.00 

90.00 

90.00 

150.99 

0 

184.64 

184.64 

.80 

1999.99 

09.78 

39,78 

160.16 

.01 

182.14 

182.14 

.70 

.85 

1999.92 

89.27 

89.27 

169.19 

.08 

179.05 

179.03 

2.29 

.90 

1999.77 

88.75 

88.75 

178*07 

.23 

176.07 

176.03 

3.84 

.95 

1999.54 

88.22 

88.22 

186.80 

.46 

173.21 

173.12 

5.38 

1.00 

1999,23 

87.69 

87.69 

195.39 

.77 

170.45 

170.31 

6. 88 

1.05 

1998.85 

87.14 

87.14 

203.34 

1.15 

167.79 

167.59 

8.37 

1.10 

1998.40 

86.59 

86.59 

212.15 

1.60 

165.24 

164.95 

9.83 

1.15 

1997.87 

86.03 

86.03 

220.34 

2.13 

162.78 

162.39 

11.28 

1  .20 

1997.27 

85.46 

85.46 

228.39 

2.73 

160.41 

159.91 

12.70 

1.25 

1996.60 

84,88 

84.08 

236.33 

3.40 

158.13 

157.50 

14.10 

1.30 

1995.86 

84.30 

84.30 

244.15 

4.14  * 

155.93 

155.16 

15.49 

1.35 

1995.05 

83.71 

83.71 

251.85 

4.95 

153.81 

152.88 

16.8b 

1  .40 

1994.10 

83.11 

83.11 

259.44 

5.82 

151.77 

150.67 

18.21 

1  .45 

1993.23 

82  i  5  0 

82.50 

266.92 

6.77 

149.80 

148.52 

19.55 

1.50 

1992.22 

81.89 

81,89 

274.29 

7.78 

147.91 

146.43 

20. 07 

1  .55 

1991.15 

81.27 

81.27 

281.57 

8.85 

146.08 

144.39 

22. 10 

1  .60 

1990.01 

80.64 

30.64 

288.74 

9.99 

144.33 

142.41 

23.47 

1.65 

1 Q88 . 80 

80.01 

80.01 

295.81 

11,20 

142.63 

140.47 

24.75 

1.70 

1987.53 

79.37 

79.37 

302.79 

12,47 

141.01 

138.58 

26.01 

1.75 

1986.20 

78.72 

78.72 

309.67 

13. B0 

139.44 

136.74 

27 .27 

1  .80 

1984.81 

78.07 

76.07 

316.46 

15.19 

137.93 

134.95 

28.51 

1  >5 

1983.35 

77.42 

77.42 

323.17 

16.65 

136.47 

133.19 

29.73 

1,90 

1961,84 

76.75 

76.75 

329,78 

18.16 

135.07 

131.48 

30.95 

1  .95 

1980,26 

76.09 

76.09 

336.32 

19.74 

133.73 

129.81 

32.15 

2.00 

1978.62 

75.42 

75.  *2 

342.77 

21.38 

132.44 

128.17 

33.35 

2.05 

1976.93 

74.74 

74.74 

349.14 

23.07 

131.19 

126.57 

34.53 

2.10. 

1975.17 

74.06 

74.06 

355.43 

24.83 

130.00 

125.00 

35.70 

2.15 

1973.36 

73.38 

73.38 

361.64 

26.64 

128.85 

123.47 

36.0b 

2.20 

1971.49 

72,69 

72.69 

367.78 

28.51 

127.75 

121.97 

38.01 

2.25 

1969.56 

72.00 

72.00 

373.84 

30.44 

126.69 

120.49 

39.15 

2.30 

1967.57 

71.31 

71,31 

379.83 

32.43 

125.68 

119,05 

40.28 

C.M. 

ACCELERATION 

(FT/SEC/SEC> 

TOTAL 


FIG  35  Sample  Output  for  the  G-11A  Cargo  Parachute  with 

Reefed  Main  Parachute  Extraction  System  (Continued) 


2.35 

1965.53 

70,61 

70.61 

385,74 

34,47 

124.71 

117.64 

41.40 

2  *.40 

1963,43 

69.91 

69,91 

391,59 

36,57 

123.78 

116.25 

42.51 

2.45 

1961.28 

69.21 

69.21 

397.37 

38,72 

122.89 

114,89 

43.61 

2.50 

1959.07 

68,51 

68.51 

403.08 

40.93 

122.04 

113.56 

44.71 

2.55 

1956.81 

67,81 

67.81 

408.73 

43,19 

121,23 

112.25 

45.79 

2.60 

1954.50 

67.10 

67.10 

414.31 

45.50 

120.45 

110.96 

46.86 

2.65 

1952.13 

66.40 

66.40 

419.83 

47,87 

119.71 

109.70 

47.93 

2.70 

1949.70 

65.69 

65.69 

425.28 

50.30 

119.00 

108.45 

48.98 

2.75 

1947.23 

64.99 

64.99 

430.67 

52.77 

118.33 

107.23 

50.03 

2.80 

1944.70 

64.28 

64,28 

436.01 

55.30 

117.69 

106.03 

51.07 

2.85 

1942.12 

63.58 

63,58 

441.28 

57.88 

117.08 

104.85 

52.10 

2.90 

1939.49 

62.87 

62.87 

446.49 

60,51 

116.50 

103.69 

53.12 

2.95 

1936.81 

62.17 

62.17 

451.65 

63.19 

115.95 

102.54 

54.14 

3.00 

1934,08 

61.47 

61.47 

456.75 

65.92 

115.44 

101.41 

55.14 

3.05 

1931.30 

60.77 

60.77 

461.79 

68,70 

114.95 

100.31 

56.14 

3.10 

1928.47 

60.07 

60.07 

466.78 

71,53 

114,48 

99,21 

57.13 

3.15 

1925,59 

59.37 

59.37 

471.71 

74.41 

114.05 

98.14 

58.11 

3.20 

1922.66 

58,68 

58.68 

476.59 

77,34 

113*64 

97.07 

59.08 

3.25 

1919.68 

57.98 

57.98 

481.42 

80.32 

113.25 

96.03 

60. 04“ 

3.30 

1916.66 

57.30 

57.30 

486.20 

83,34 

112.89 

95.00 

61.00 

3.35 

1913.58 

56.61 

56.61 

490.92 

86.42  * 

112.55 

93.98 

61.94 

3.40 

1910.46 

55.93 

55.93 

495.60 

89.54 

112.24 

92.97 

62.88 

3.45 

1907.30 

55.25 

55.25 

500.22 

92.70 

111.95 

91.98 

63.81 

3.50 

1904.08 

54.58 

54.58 

504.80 

95.92 

111.68 

91.01 

64.73 

3,55 

1900.82 

53.91 

53.91 

509.32 

99.18 

111.43 

90.04 

65.65 

3.60 

1897.52 

53.24 

53.24 

513.80 

102.48 

111.20 

89.09 

66.55 

3.65 

1894.17 

52.50 

52.58 

518.23 

105.83 

110.99 

88.15 

67.45 

3,70 

1890.78 

51.92 

51.92 

522,62 

109,22 

110.80 

87,22 

68.34 

3.75 

1807.34 

51.27 

51.27 

526,96 

112.66 

110.63 

86.30 

69.22 

3.80 

1883.85 

50.62 

50.62 

531.25 

116,15 

110.47 

85.39 

70.09 

3.85 

1880.33 

49,98 

49,98 

535.50 

119.67 

110.33 

84.49 

70.95 

3.90 

1876.76 

49.34 

49.34 

539.70 

123.24 

110.21 

83.61 

71.81 

3.95 
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FIG  35  Sample  Output  for  the  G-11A  Cargo  Parachute  with 

Reefed  Main  Parachute  Extraction  System  (Continued) 
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